/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / calendar / solar.elc

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 33 3a 33 | 30 20 31 39 39 35 0a 3b | 13:53:3|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 63 61 | 6c 65 6e 64 61 72 2f 73 |/lisp/ca|lendar/s|
|00000090| 6f 6c 61 72 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |olar.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 62 79 74 65 |cs 19.")|)..(byte|
|000001f0| 2d 63 6f 64 65 20 22 c0 | c1 21 ab 86 c2 c3 21 88 |-code ".|.!....!.|
|00000200| aa 84 c4 c5 21 88 c2 c6 | 21 87 22 20 5b 66 62 6f |....!...|!." [fbo|
|00000210| 75 6e 64 70 20 61 74 61 | 6e 20 72 65 71 75 69 72 |undp ata|n requir|
|00000220| 65 20 6c 69 73 70 2d 66 | 6c 6f 61 74 2d 74 79 70 |e lisp-f|loat-typ|
|00000230| 65 20 65 72 72 6f 72 20 | 22 53 6f 6c 61 72 2f 6c |e error |"Solar/l|
|00000240| 75 6e 61 72 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |unar cal|culation|
|00000250| 73 20 69 6d 70 6f 73 73 | 69 62 6c 65 20 73 69 6e |s imposs|ible sin|
|00000260| 63 65 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |ce float|ing poin|
|00000270| 74 20 69 73 20 75 6e 61 | 76 61 69 6c 61 62 6c 65 |t is una|vailable|
|00000280| 2e 22 20 63 61 6c 2d 64 | 73 74 5d 20 32 29 0a 28 |." cal-d|st] 2).(|
|00000290| 64 65 66 76 61 72 20 63 | 61 6c 65 6e 64 61 72 2d |defvar c|alendar-|
|000002a0| 74 69 6d 65 2d 64 69 73 | 70 6c 61 79 2d 66 6f 72 |time-dis|play-for|
|000002b0| 6d 20 27 28 31 32 2d 68 | 6f 75 72 73 20 22 3a 22 |m '(12-h|ours ":"|
|000002c0| 20 6d 69 6e 75 74 65 73 | 20 61 6d 2d 70 6d 20 28 | minutes| am-pm (|
|000002d0| 69 66 20 74 69 6d 65 2d | 7a 6f 6e 65 20 22 20 28 |if time-|zone " (|
|000002e0| 22 29 20 74 69 6d 65 2d | 7a 6f 6e 65 20 28 69 66 |") time-|zone (if|
|000002f0| 20 74 69 6d 65 2d 7a 6f | 6e 65 20 22 29 22 29 29 | time-zo|ne ")"))|
|00000300| 20 22 5c 0a 2a 54 68 65 | 20 70 73 65 75 64 6f 2d | "\.*The| pseudo-|
|00000310| 70 61 74 74 65 72 6e 20 | 74 68 61 74 20 67 6f 76 |pattern |that gov|
|00000320| 65 72 6e 73 20 74 68 65 | 20 77 61 79 20 61 20 74 |erns the| way a t|
|00000330| 69 6d 65 20 6f 66 20 64 | 61 79 20 69 73 20 66 6f |ime of d|ay is fo|
|00000340| 72 6d 61 74 74 65 64 2e | 0a 0a 41 20 70 73 65 75 |rmatted.|..A pseu|
|00000350| 64 6f 2d 70 61 74 74 65 | 72 6e 20 69 73 20 61 20 |do-patte|rn is a |
|00000360| 6c 69 73 74 20 6f 66 20 | 65 78 70 72 65 73 73 69 |list of |expressi|
|00000370| 6f 6e 73 20 74 68 61 74 | 20 63 61 6e 20 69 6e 76 |ons that| can inv|
|00000380| 6f 6c 76 65 20 74 68 65 | 20 6b 65 79 77 6f 72 64 |olve the| keyword|
|00000390| 73 0a 60 31 32 2d 68 6f | 75 72 73 27 2c 20 60 32 |s.`12-ho|urs', `2|
|000003a0| 34 2d 68 6f 75 72 73 27 | 2c 20 61 6e 64 20 60 6d |4-hours'|, and `m|
|000003b0| 69 6e 75 74 65 73 27 2c | 20 20 61 6c 6c 20 6e 75 |inutes',|  all nu|
|000003c0| 6d 62 65 72 73 20 69 6e | 20 73 74 72 69 6e 67 20 |mbers in| string |
|000003d0| 66 6f 72 6d 2c 0a 61 6e | 64 20 60 61 6d 2d 70 6d |form,.an|d `am-pm|
|000003e0| 27 20 61 6e 64 20 60 74 | 69 6d 65 2d 7a 6f 6e 65 |' and `t|ime-zone|
|000003f0| 27 2c 20 20 62 6f 74 68 | 20 61 6c 70 68 61 62 65 |',  both| alphabe|
|00000400| 74 69 63 20 73 74 72 69 | 6e 67 73 2e 0a 0a 46 6f |tic stri|ngs...Fo|
|00000410| 72 20 65 78 61 6d 70 6c | 65 2c 20 74 68 65 20 66 |r exampl|e, the f|
|00000420| 6f 72 6d 0a 0a 20 20 27 | 28 32 34 2d 68 6f 75 72 |orm..  '|(24-hour|
|00000430| 73 20 5c 22 3a 5c 22 20 | 6d 69 6e 75 74 65 73 0a |s \":\" |minutes.|
|00000440| 20 20 20 20 28 69 66 20 | 74 69 6d 65 2d 7a 6f 6e |    (if |time-zon|
|00000450| 65 20 5c 22 20 28 5c 22 | 29 20 74 69 6d 65 2d 7a |e \" (\"|) time-z|
|00000460| 6f 6e 65 20 28 69 66 20 | 74 69 6d 65 2d 7a 6f 6e |one (if |time-zon|
|00000470| 65 20 5c 22 29 5c 22 29 | 29 0a 0a 77 6f 75 6c 64 |e \")\")|)..would|
|00000480| 20 67 69 76 65 20 6d 69 | 6c 69 74 61 72 79 2d 73 | give mi|litary-s|
|00000490| 74 79 6c 65 20 74 69 6d | 65 73 20 6c 69 6b 65 20 |tyle tim|es like |
|000004a0| 60 32 31 3a 30 37 20 28 | 55 54 43 29 27 2e 22 29 |`21:07 (|UTC)'.")|
|000004b0| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 65 6e 64 61 |.(defvar| calenda|
|000004c0| 72 2d 6c 61 74 69 74 75 | 64 65 20 6e 69 6c 20 22 |r-latitu|de nil "|
|000004d0| 5c 0a 2a 4c 61 74 69 74 | 75 64 65 20 6f 66 20 60 |\.*Latit|ude of `|
|000004e0| 63 61 6c 65 6e 64 61 72 | 2d 6c 6f 63 61 74 69 6f |calendar|-locatio|
|000004f0| 6e 2d 6e 61 6d 65 27 20 | 69 6e 20 64 65 67 72 65 |n-name' |in degre|
|00000500| 65 73 2e 0a 0a 54 68 65 | 20 76 61 6c 75 65 20 63 |es...The| value c|
|00000510| 61 6e 20 62 65 20 65 69 | 74 68 65 72 20 61 20 64 |an be ei|ther a d|
|00000520| 65 63 69 6d 61 6c 20 66 | 72 61 63 74 69 6f 6e 20 |ecimal f|raction |
|00000530| 28 6f 6e 65 20 70 6c 61 | 63 65 20 6f 66 20 61 63 |(one pla|ce of ac|
|00000540| 63 75 72 61 63 79 20 69 | 73 0a 73 75 66 66 69 63 |curacy i|s.suffic|
|00000550| 69 65 6e 74 29 2c 20 2b | 20 6e 6f 72 74 68 2c 20 |ient), +| north, |
|00000560| 2d 20 73 6f 75 74 68 2c | 20 73 75 63 68 20 61 73 |- south,| such as|
|00000570| 20 34 30 2e 37 20 66 6f | 72 20 4e 65 77 20 59 6f | 40.7 fo|r New Yo|
|00000580| 72 6b 20 43 69 74 79 2c | 20 6f 72 20 74 68 65 20 |rk City,| or the |
|00000590| 76 61 6c 75 65 0a 63 61 | 6e 20 62 65 20 61 20 76 |value.ca|n be a v|
|000005a0| 65 63 74 6f 72 20 5b 64 | 65 67 72 65 65 73 20 6d |ector [d|egrees m|
|000005b0| 69 6e 75 74 65 73 20 6e | 6f 72 74 68 2f 73 6f 75 |inutes n|orth/sou|
|000005c0| 74 68 5d 20 73 75 63 68 | 20 61 73 20 5b 34 30 20 |th] such| as [40 |
|000005d0| 35 30 20 6e 6f 72 74 68 | 5d 20 66 6f 72 20 4e 65 |50 north|] for Ne|
|000005e0| 77 0a 59 6f 72 6b 20 43 | 69 74 79 2e 0a 0a 54 68 |w.York C|ity...Th|
|000005f0| 69 73 20 76 61 72 69 61 | 62 6c 65 20 73 68 6f 75 |is varia|ble shou|
|00000600| 6c 64 20 62 65 20 73 65 | 74 20 69 6e 20 73 69 74 |ld be se|t in sit|
|00000610| 65 2d 6c 6f 63 61 6c 2e | 65 6c 2e 22 29 0a 28 64 |e-local.|el.").(d|
|00000620| 65 66 76 61 72 20 63 61 | 6c 65 6e 64 61 72 2d 6c |efvar ca|lendar-l|
|00000630| 6f 6e 67 69 74 75 64 65 | 20 6e 69 6c 20 22 5c 0a |ongitude| nil "\.|
|00000640| 2a 4c 6f 6e 67 69 74 75 | 64 65 20 6f 66 20 60 63 |*Longitu|de of `c|
|00000650| 61 6c 65 6e 64 61 72 2d | 6c 6f 63 61 74 69 6f 6e |alendar-|location|
|00000660| 2d 6e 61 6d 65 27 20 69 | 6e 20 64 65 67 72 65 65 |-name' i|n degree|
|00000670| 73 2e 0a 0a 54 68 65 20 | 76 61 6c 75 65 20 63 61 |s...The |value ca|
|00000680| 6e 20 62 65 20 65 69 74 | 68 65 72 20 61 20 64 65 |n be eit|her a de|
|00000690| 63 69 6d 61 6c 20 66 72 | 61 63 74 69 6f 6e 20 28 |cimal fr|action (|
|000006a0| 6f 6e 65 20 70 6c 61 63 | 65 20 6f 66 20 61 63 63 |one plac|e of acc|
|000006b0| 75 72 61 63 79 20 69 73 | 0a 73 75 66 66 69 63 69 |uracy is|.suffici|
|000006c0| 65 6e 74 29 2c 20 2b 20 | 65 61 73 74 2c 20 2d 20 |ent), + |east, - |
|000006d0| 77 65 73 74 2c 20 73 75 | 63 68 20 61 73 20 2d 37 |west, su|ch as -7|
|000006e0| 33 2e 39 20 66 6f 72 20 | 4e 65 77 20 59 6f 72 6b |3.9 for |New York|
|000006f0| 20 43 69 74 79 2c 20 6f | 72 20 74 68 65 20 76 61 | City, o|r the va|
|00000700| 6c 75 65 0a 63 61 6e 20 | 62 65 20 61 20 76 65 63 |lue.can |be a vec|
|00000710| 74 6f 72 20 5b 64 65 67 | 72 65 65 73 20 6d 69 6e |tor [deg|rees min|
|00000720| 75 74 65 73 20 65 61 73 | 74 2f 77 65 73 74 5d 20 |utes eas|t/west] |
|00000730| 73 75 63 68 20 61 73 20 | 5b 37 33 20 35 35 20 77 |such as |[73 55 w|
|00000740| 65 73 74 5d 20 66 6f 72 | 20 4e 65 77 0a 59 6f 72 |est] for| New.Yor|
|00000750| 6b 20 43 69 74 79 2e 0a | 0a 54 68 69 73 20 76 61 |k City..|.This va|
|00000760| 72 69 61 62 6c 65 20 73 | 68 6f 75 6c 64 20 62 65 |riable s|hould be|
|00000770| 20 73 65 74 20 69 6e 20 | 73 69 74 65 2d 6c 6f 63 | set in |site-loc|
|00000780| 61 6c 2e 65 6c 2e 22 29 | 0a 28 66 73 65 74 20 27 |al.el.")|.(fset '|
|00000790| 63 61 6c 65 6e 64 61 72 | 2d 6c 61 74 69 74 75 64 |calendar|-latitud|
|000007a0| 65 20 23 5b 6e 69 6c 20 | 22 08 a7 ab 82 08 87 08 |e #[nil |".......|
|000007b0| c1 48 08 c2 48 c3 a5 5c | 5c 1c 08 c5 48 c6 9a ab |.H..H..\|\...H...|
|000007c0| 83 0c aa 82 0c 5b 29 87 | 22 20 5b 63 61 6c 65 6e |.....[).|" [calen|
|000007d0| 64 61 72 2d 6c 61 74 69 | 74 75 64 65 20 30 20 31 |dar-lati|tude 0 1|
|000007e0| 20 36 30 2e 30 20 6c 61 | 74 20 32 20 6e 6f 72 74 | 60.0 la|t 2 nort|
|000007f0| 68 5d 20 33 20 22 5c 0a | 43 6f 6e 76 65 72 74 20 |h] 3 "\.|Convert |
|00000800| 63 61 6c 65 6e 64 61 72 | 2d 6c 61 74 69 74 75 64 |calendar|-latitud|
|00000810| 65 20 74 6f 20 61 20 73 | 69 67 6e 65 64 20 64 65 |e to a s|igned de|
|00000820| 63 69 6d 61 6c 20 66 72 | 61 63 74 69 6f 6e 2c 20 |cimal fr|action, |
|00000830| 69 66 20 6e 65 65 64 65 | 64 2e 22 5d 29 0a 28 62 |if neede|d."]).(b|
|00000840| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 4e c2 3e ac |yte-code| "..N.>.|
|00000850| 85 c3 c4 c0 5c 22 88 c5 | c0 c1 c6 23 87 22 20 5b |....\"..|...#." [|
|00000860| 63 61 6c 65 6e 64 61 72 | 2d 6c 61 74 69 74 75 64 |calendar|-latitud|
|00000870| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00000880| 20 28 6e 69 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 | (nil by|te-compi|
|00000890| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|000008a0| 29 20 65 72 72 6f 72 20 | 22 25 73 20 61 6c 72 65 |) error |"%s alre|
|000008b0| 61 64 79 20 68 61 73 20 | 61 20 62 79 74 65 2d 6f |ady has |a byte-o|
|000008c0| 70 74 69 6d 69 7a 65 72 | 2c 20 63 61 6e 27 74 20 |ptimizer|, can't |
|000008d0| 6d 61 6b 65 20 69 74 20 | 69 6e 6c 69 6e 65 22 20 |make it |inline" |
|000008e0| 70 75 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |put byte|-compile|
|000008f0| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 5d 20 |-inline-|expand] |
|00000900| 34 29 0a 28 66 73 65 74 | 20 27 63 61 6c 65 6e 64 |4).(fset| 'calend|
|00000910| 61 72 2d 6c 6f 6e 67 69 | 74 75 64 65 20 23 5b 6e |ar-longi|tude #[n|
|00000920| 69 6c 20 22 08 a7 ab 82 | 08 87 08 c1 48 08 c2 48 |il "....|....H..H|
|00000930| c3 a5 5c 5c 1c 08 c5 48 | c6 9a ab 83 0c aa 82 0c |..\\...H|........|
|00000940| 5b 29 87 22 20 5b 63 61 | 6c 65 6e 64 61 72 2d 6c |[)." [ca|lendar-l|
|00000950| 6f 6e 67 69 74 75 64 65 | 20 30 20 31 20 36 30 2e |ongitude| 0 1 60.|
|00000960| 30 20 6c 6f 6e 67 20 32 | 20 65 61 73 74 5d 20 33 |0 long 2| east] 3|
|00000970| 20 22 5c 0a 43 6f 6e 76 | 65 72 74 20 63 61 6c 65 | "\.Conv|ert cale|
|00000980| 6e 64 61 72 2d 6c 6f 6e | 67 69 74 75 64 65 20 74 |ndar-lon|gitude t|
|00000990| 6f 20 61 20 73 69 67 6e | 65 64 20 64 65 63 69 6d |o a sign|ed decim|
|000009a0| 61 6c 20 66 72 61 63 74 | 69 6f 6e 2c 20 69 66 20 |al fract|ion, if |
|000009b0| 6e 65 65 64 65 64 2e 22 | 5d 29 0a 28 62 79 74 65 |needed."|]).(byte|
|000009c0| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 3e ac 85 c3 c4 |-code ".|.N.>....|
|000009d0| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 63 61 6c |.\".....|#." [cal|
|000009e0| 65 6e 64 61 72 2d 6c 6f | 6e 67 69 74 75 64 65 20 |endar-lo|ngitude |
|000009f0| 62 79 74 65 2d 6f 70 74 | 69 6d 69 7a 65 72 20 28 |byte-opt|imizer (|
|00000a00| 6e 69 6c 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |nil byte|-compile|
|00000a10| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 29 20 |-inline-|expand) |
|00000a20| 65 72 72 6f 72 20 22 25 | 73 20 61 6c 72 65 61 64 |error "%|s alread|
|00000a30| 79 20 68 61 73 20 61 20 | 62 79 74 65 2d 6f 70 74 |y has a |byte-opt|
|00000a40| 69 6d 69 7a 65 72 2c 20 | 63 61 6e 27 74 20 6d 61 |imizer, |can't ma|
|00000a50| 6b 65 20 69 74 20 69 6e | 6c 69 6e 65 22 20 70 75 |ke it in|line" pu|
|00000a60| 74 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |t byte-c|ompile-i|
|00000a70| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 5d 20 34 29 |nline-ex|pand] 4)|
|00000a80| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 65 6e 64 61 |.(defvar| calenda|
|00000a90| 72 2d 6c 6f 63 61 74 69 | 6f 6e 2d 6e 61 6d 65 20 |r-locati|on-name |
|00000aa0| 27 28 6c 65 74 20 28 28 | 66 6c 6f 61 74 2d 6f 75 |'(let ((|float-ou|
|00000ab0| 74 70 75 74 2d 66 6f 72 | 6d 61 74 20 22 25 2e 31 |tput-for|mat "%.1|
|00000ac0| 66 22 29 29 20 28 66 6f | 72 6d 61 74 20 22 25 73 |f")) (fo|rmat "%s|
|00000ad0| 25 73 2c 20 25 73 25 73 | 22 20 28 69 66 20 28 6e |%s, %s%s|" (if (n|
|00000ae0| 75 6d 62 65 72 70 20 63 | 61 6c 65 6e 64 61 72 2d |umberp c|alendar-|
|00000af0| 6c 61 74 69 74 75 64 65 | 29 20 28 61 62 73 20 63 |latitude|) (abs c|
|00000b00| 61 6c 65 6e 64 61 72 2d | 6c 61 74 69 74 75 64 65 |alendar-|latitude|
|00000b10| 29 20 28 2b 20 28 61 72 | 65 66 20 63 61 6c 65 6e |) (+ (ar|ef calen|
|00000b20| 64 61 72 2d 6c 61 74 69 | 74 75 64 65 20 30 29 20 |dar-lati|tude 0) |
|00000b30| 28 2f 20 28 61 72 65 66 | 20 63 61 6c 65 6e 64 61 |(/ (aref| calenda|
|00000b40| 72 2d 6c 61 74 69 74 75 | 64 65 20 31 29 20 36 30 |r-latitu|de 1) 60|
|00000b50| 2e 30 29 29 29 20 28 69 | 66 20 28 6e 75 6d 62 65 |.0))) (i|f (numbe|
|00000b60| 72 70 20 63 61 6c 65 6e | 64 61 72 2d 6c 61 74 69 |rp calen|dar-lati|
|00000b70| 74 75 64 65 29 20 28 69 | 66 20 28 3e 20 63 61 6c |tude) (i|f (> cal|
|00000b80| 65 6e 64 61 72 2d 6c 61 | 74 69 74 75 64 65 20 30 |endar-la|titude 0|
|00000b90| 29 20 22 4e 22 20 22 53 | 22 29 20 28 69 66 20 28 |) "N" "S|") (if (|
|00000ba0| 65 71 75 61 6c 20 28 61 | 72 65 66 20 63 61 6c 65 |equal (a|ref cale|
|00000bb0| 6e 64 61 72 2d 6c 61 74 | 69 74 75 64 65 20 32 29 |ndar-lat|itude 2)|
|00000bc0| 20 27 6e 6f 72 74 68 29 | 20 22 4e 22 20 22 53 22 | 'north)| "N" "S"|
|00000bd0| 29 29 20 28 69 66 20 28 | 6e 75 6d 62 65 72 70 20 |)) (if (|numberp |
|00000be0| 63 61 6c 65 6e 64 61 72 | 2d 6c 6f 6e 67 69 74 75 |calendar|-longitu|
|00000bf0| 64 65 29 20 28 61 62 73 | 20 63 61 6c 65 6e 64 61 |de) (abs| calenda|
|00000c00| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 29 20 28 2b 20 |r-longit|ude) (+ |
|00000c10| 28 61 72 65 66 20 63 61 | 6c 65 6e 64 61 72 2d 6c |(aref ca|lendar-l|
|00000c20| 6f 6e 67 69 74 75 64 65 | 20 30 29 20 28 2f 20 28 |ongitude| 0) (/ (|
|00000c30| 61 72 65 66 20 63 61 6c | 65 6e 64 61 72 2d 6c 6f |aref cal|endar-lo|
|00000c40| 6e 67 69 74 75 64 65 20 | 31 29 20 36 30 2e 30 29 |ngitude |1) 60.0)|
|00000c50| 29 29 20 28 69 66 20 28 | 6e 75 6d 62 65 72 70 20 |)) (if (|numberp |
|00000c60| 63 61 6c 65 6e 64 61 72 | 2d 6c 6f 6e 67 69 74 75 |calendar|-longitu|
|00000c70| 64 65 29 20 28 69 66 20 | 28 3e 20 63 61 6c 65 6e |de) (if |(> calen|
|00000c80| 64 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 20 30 29 |dar-long|itude 0)|
|00000c90| 20 22 45 22 20 22 57 22 | 29 20 28 69 66 20 28 65 | "E" "W"|) (if (e|
|00000ca0| 71 75 61 6c 20 28 61 72 | 65 66 20 63 61 6c 65 6e |qual (ar|ef calen|
|00000cb0| 64 61 72 2d 6c 61 74 69 | 74 75 64 65 20 32 29 20 |dar-lati|tude 2) |
|00000cc0| 27 65 61 73 74 29 20 22 | 45 22 20 22 57 22 29 29 |'east) "|E" "W"))|
|00000cd0| 29 29 20 22 5c 0a 2a 45 | 78 70 72 65 73 73 69 6f |)) "\.*E|xpressio|
|00000ce0| 6e 20 65 76 61 6c 75 61 | 74 69 6e 67 20 74 6f 20 |n evalua|ting to |
|00000cf0| 6e 61 6d 65 20 6f 66 20 | 60 63 61 6c 65 6e 64 61 |name of |`calenda|
|00000d00| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 27 2c 20 63 61 |r-longit|ude', ca|
|00000d10| 6c 65 6e 64 61 72 2d 6c | 61 74 69 74 75 64 65 27 |lendar-l|atitude'|
|00000d20| 2e 0a 46 6f 72 20 65 78 | 61 6d 70 6c 65 2c 20 5c |..For ex|ample, \|
|00000d30| 22 4e 65 77 20 59 6f 72 | 6b 20 43 69 74 79 5c 22 |"New Yor|k City\"|
|00000d40| 2e 20 20 44 65 66 61 75 | 6c 74 20 76 61 6c 75 65 |.  Defau|lt value|
|00000d50| 20 69 73 20 6a 75 73 74 | 20 74 68 65 20 6c 61 74 | is just| the lat|
|00000d60| 69 74 75 64 65 2c 20 6c | 6f 6e 67 69 74 75 64 65 |itude, l|ongitude|
|00000d70| 0a 70 61 69 72 2e 0a 0a | 54 68 69 73 20 76 61 72 |.pair...|This var|
|00000d80| 69 61 62 6c 65 20 73 68 | 6f 75 6c 64 20 62 65 20 |iable sh|ould be |
|00000d90| 73 65 74 20 69 6e 20 73 | 69 74 65 2d 6c 6f 63 61 |set in s|ite-loca|
|00000da0| 6c 2e 65 6c 2e 22 29 0a | 28 64 65 66 76 61 72 20 |l.el.").|(defvar |
|00000db0| 73 6f 6c 61 72 2d 6e 2d | 68 65 6d 69 2d 73 65 61 |solar-n-|hemi-sea|
|00000dc0| 73 6f 6e 73 20 27 28 22 | 56 65 72 6e 61 6c 20 45 |sons '("|Vernal E|
|00000dd0| 71 75 69 6e 6f 78 22 20 | 22 53 75 6d 6d 65 72 20 |quinox" |"Summer |
|00000de0| 53 6f 6c 73 74 69 63 65 | 22 20 22 41 75 74 75 6d |Solstice|" "Autum|
|00000df0| 6e 61 6c 20 45 71 75 69 | 6e 6f 78 22 20 22 57 69 |nal Equi|nox" "Wi|
|00000e00| 6e 74 65 72 20 53 6f 6c | 73 74 69 63 65 22 29 20 |nter Sol|stice") |
|00000e10| 22 5c 0a 4c 69 73 74 20 | 6f 66 20 73 65 61 73 6f |"\.List |of seaso|
|00000e20| 6e 20 63 68 61 6e 67 65 | 73 20 66 6f 72 20 74 68 |n change|s for th|
|00000e30| 65 20 6e 6f 72 74 68 65 | 72 6e 20 68 65 6d 69 73 |e northe|rn hemis|
|00000e40| 70 68 65 72 65 2e 22 29 | 0a 28 64 65 66 76 61 72 |phere.")|.(defvar|
|00000e50| 20 73 6f 6c 61 72 2d 73 | 2d 68 65 6d 69 2d 73 65 | solar-s|-hemi-se|
|00000e60| 61 73 6f 6e 73 20 27 28 | 22 41 75 74 75 6d 6e 61 |asons '(|"Autumna|
|00000e70| 6c 20 45 71 75 69 6e 6f | 78 22 20 22 57 69 6e 74 |l Equino|x" "Wint|
|00000e80| 65 72 20 53 6f 6c 73 74 | 69 63 65 22 20 22 56 65 |er Solst|ice" "Ve|
|00000e90| 72 6e 61 6c 20 45 71 75 | 69 6e 6f 78 22 20 22 53 |rnal Equ|inox" "S|
|00000ea0| 75 6d 6d 65 72 20 53 6f | 6c 73 74 69 63 65 22 29 |ummer So|lstice")|
|00000eb0| 20 22 5c 0a 4c 69 73 74 | 20 6f 66 20 73 65 61 73 | "\.List| of seas|
|00000ec0| 6f 6e 20 63 68 61 6e 67 | 65 73 20 66 6f 72 20 74 |on chang|es for t|
|00000ed0| 68 65 20 73 6f 75 74 68 | 65 72 6e 20 68 65 6d 69 |he south|ern hemi|
|00000ee0| 73 70 68 65 72 65 2e 22 | 29 0a 28 66 73 65 74 20 |sphere."|).(fset |
|00000ef0| 27 73 6f 6c 61 72 2d 73 | 65 74 75 70 20 23 5b 6e |'solar-s|etup #[n|
|00000f00| 69 6c 20 22 c0 20 88 09 | ac 84 c2 c3 21 11 0c ac |il ". ..|....!...|
|00000f10| 84 c2 c5 21 14 0e 06 3f | ad 86 c2 c7 21 89 16 06 |...!...?|....!...|
|00000f20| 87 22 20 5b 62 65 65 70 | 20 63 61 6c 65 6e 64 61 |." [beep| calenda|
|00000f30| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 20 73 6f 6c 61 |r-longit|ude sola|
|00000f40| 72 2d 67 65 74 2d 6e 75 | 6d 62 65 72 20 22 45 6e |r-get-nu|mber "En|
|00000f50| 74 65 72 20 6c 6f 6e 67 | 69 74 75 64 65 20 28 64 |ter long|itude (d|
|00000f60| 65 63 69 6d 61 6c 20 66 | 72 61 63 74 69 6f 6e 3b |ecimal f|raction;|
|00000f70| 20 2b 20 65 61 73 74 2c | 20 2d 20 77 65 73 74 29 | + east,| - west)|
|00000f80| 3a 20 22 20 63 61 6c 65 | 6e 64 61 72 2d 6c 61 74 |: " cale|ndar-lat|
|00000f90| 69 74 75 64 65 20 22 45 | 6e 74 65 72 20 6c 61 74 |itude "E|nter lat|
|00000fa0| 69 74 75 64 65 20 28 64 | 65 63 69 6d 61 6c 20 66 |itude (d|ecimal f|
|00000fb0| 72 61 63 74 69 6f 6e 3b | 20 2b 20 6e 6f 72 74 68 |raction;| + north|
|00000fc0| 2c 20 2d 20 73 6f 75 74 | 68 29 3a 20 22 20 63 61 |, - sout|h): " ca|
|00000fd0| 6c 65 6e 64 61 72 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |lendar-t|ime-zone|
|00000fe0| 20 22 45 6e 74 65 72 20 | 64 69 66 66 65 72 65 6e | "Enter |differen|
|00000ff0| 63 65 20 66 72 6f 6d 20 | 43 6f 6f 72 64 69 6e 61 |ce from |Coordina|
|00001000| 74 65 64 20 55 6e 69 76 | 65 72 73 61 6c 20 54 69 |ted Univ|ersal Ti|
|00001010| 6d 65 20 28 69 6e 20 6d | 69 6e 75 74 65 73 29 3a |me (in m|inutes):|
|00001020| 20 22 5d 20 32 20 22 5c | 0a 50 72 6f 6d 70 74 20 | "] 2 "\|.Prompt |
|00001030| 75 73 65 72 20 66 6f 72 | 20 6c 61 74 69 74 75 64 |user for| latitud|
|00001040| 65 2c 20 6c 6f 6e 67 69 | 74 75 64 65 2c 20 61 6e |e, longi|tude, an|
|00001050| 64 20 74 69 6d 65 20 7a | 6f 6e 65 2e 22 5d 29 0a |d time z|one."]).|
|00001060| 28 66 73 65 74 20 27 73 | 6f 6c 61 72 2d 67 65 74 |(fset 's|olar-get|
|00001070| 2d 6e 75 6d 62 65 72 20 | 23 5b 28 70 72 6f 6d 70 |-number |#[(promp|
|00001080| 74 29 20 22 c0 09 c2 5c | 22 89 1b c2 98 3f ad 83 |t) "...\|"....?..|
|00001090| c4 0b 21 29 87 22 20 5b | 72 65 61 64 2d 73 74 72 |..!)." [|read-str|
|000010a0| 69 6e 67 20 70 72 6f 6d | 70 74 20 22 22 20 78 20 |ing prom|pt "" x |
|000010b0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 5d 20 34 |string-t|o-int] 4|
|000010c0| 20 22 5c 0a 52 65 74 75 | 72 6e 20 61 20 6e 75 6d | "\.Retu|rn a num|
|000010d0| 62 65 72 20 66 72 6f 6d | 20 74 68 65 20 6d 69 6e |ber from| the min|
|000010e0| 69 62 75 66 66 65 72 2c | 20 70 72 6f 6d 70 74 69 |ibuffer,| prompti|
|000010f0| 6e 67 20 77 69 74 68 20 | 50 52 4f 4d 50 54 2e 0a |ng with |PROMPT..|
|00001100| 52 65 74 75 72 6e 73 20 | 6e 69 6c 20 69 66 20 6e |Returns |nil if n|
|00001110| 6f 74 68 69 6e 67 20 77 | 61 73 20 65 6e 74 65 72 |othing w|as enter|
|00001120| 65 64 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ed."]).(|byte-cod|
|00001130| 65 20 22 c0 c1 4d 88 c0 | c2 4e c3 3e ac 85 c4 c5 |e "..M..|.N.>....|
|00001140| c0 5c 22 88 c6 c0 c2 c7 | 23 88 c8 c9 4d 88 c8 c2 |.\".....|#...M...|
|00001150| 4e c3 3e ac 85 c4 c5 c8 | 5c 22 88 c6 c8 c2 c7 23 |N.>.....|\".....#|
|00001160| 88 ca cb 4d 87 22 20 5b | 73 6f 6c 61 72 2d 73 69 |...M." [|solar-si|
|00001170| 6e 2d 64 65 67 72 65 65 | 73 20 23 5b 28 78 29 20 |n-degree|s #[(x) |
|00001180| 22 c0 09 c2 5f 21 87 22 | 20 5b 73 69 6e 20 78 20 |"..._!."| [sin x |
|00001190| 30 2e 30 31 37 34 35 33 | 32 39 32 35 31 39 39 34 |0.017453|29251994|
|000011a0| 33 33 5d 20 33 5d 20 62 | 79 74 65 2d 6f 70 74 69 |33] 3] b|yte-opti|
|000011b0| 6d 69 7a 65 72 20 28 6e | 69 6c 20 62 79 74 65 2d |mizer (n|il byte-|
|000011c0| 63 6f 6d 70 69 6c 65 2d | 69 6e 6c 69 6e 65 2d 65 |compile-|inline-e|
|000011d0| 78 70 61 6e 64 29 20 65 | 72 72 6f 72 20 22 25 73 |xpand) e|rror "%s|
|000011e0| 20 61 6c 72 65 61 64 79 | 20 68 61 73 20 61 20 62 | already| has a b|
|000011f0| 79 74 65 2d 6f 70 74 69 | 6d 69 7a 65 72 2c 20 63 |yte-opti|mizer, c|
|00001200| 61 6e 27 74 20 6d 61 6b | 65 20 69 74 20 69 6e 6c |an't mak|e it inl|
|00001210| 69 6e 65 22 20 70 75 74 | 20 62 79 74 65 2d 63 6f |ine" put| byte-co|
|00001220| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00001230| 61 6e 64 20 73 6f 6c 61 | 72 2d 63 6f 73 69 6e 65 |and sola|r-cosine|
|00001240| 2d 64 65 67 72 65 65 73 | 20 23 5b 28 78 29 20 22 |-degrees| #[(x) "|
|00001250| c0 09 c2 5f 21 87 22 20 | 5b 63 6f 73 20 78 20 30 |..._!." |[cos x 0|
|00001260| 2e 30 31 37 34 35 33 32 | 39 32 35 31 39 39 34 33 |.0174532|92519943|
|00001270| 33 5d 20 33 5d 20 73 6f | 6c 61 72 2d 74 61 6e 67 |3] 3] so|lar-tang|
|00001280| 65 6e 74 2d 64 65 67 72 | 65 65 73 20 23 5b 28 78 |ent-degr|ees #[(x|
|00001290| 29 20 22 c0 09 c2 5f 21 | 87 22 20 5b 74 61 6e 20 |) "..._!|." [tan |
|000012a0| 78 20 30 2e 30 31 37 34 | 35 33 32 39 32 35 31 39 |x 0.0174|53292519|
|000012b0| 39 34 33 33 5d 20 33 5d | 5d 20 34 29 0a 28 66 73 |9433] 3]|] 4).(fs|
|000012c0| 65 74 20 27 73 6f 6c 61 | 72 2d 78 79 2d 74 6f 2d |et 'sola|r-xy-to-|
|000012d0| 71 75 61 64 72 61 6e 74 | 20 23 5b 28 78 20 79 29 |quadrant| #[(x y)|
|000012e0| 20 22 08 c1 56 ab 89 5c | 6e c1 56 ab 82 c3 87 c4 | "..V..\|n.V.....|
|000012f0| 87 5c 6e c1 56 ab 82 c5 | 87 c6 87 22 20 5b 78 20 |.\n.V...|..." [x |
|00001300| 30 20 79 20 31 20 34 20 | 32 20 33 5d 20 32 20 22 |0 y 1 4 |2 3] 2 "|
|00001310| 5c 0a 44 65 74 65 72 6d | 69 6e 65 73 20 74 68 65 |\.Determ|ines the|
|00001320| 20 71 75 61 64 72 61 6e | 74 20 6f 66 20 74 68 65 | quadran|t of the|
|00001330| 20 70 6f 69 6e 74 20 58 | 2c 20 59 2e 22 5d 29 0a | point X|, Y."]).|
|00001340| 28 66 73 65 74 20 27 73 | 6f 6c 61 72 2d 64 65 67 |(fset 's|olar-deg|
|00001350| 72 65 65 73 2d 74 6f 2d | 71 75 61 64 72 61 6e 74 |rees-to-|quadrant|
|00001360| 20 23 5b 28 61 6e 67 6c | 65 29 20 22 c0 c1 5c 6e | #[(angl|e) "..\n|
|00001370| c3 5c 22 c4 5c 22 54 87 | 22 20 5b 66 6c 6f 6f 72 |.\".\"T.|" [floor|
|00001380| 20 6d 6f 64 20 61 6e 67 | 6c 65 20 33 36 30 20 39 | mod ang|le 360 9|
|00001390| 30 5d 20 34 20 22 5c 0a | 44 65 74 65 72 6d 69 6e |0] 4 "\.|Determin|
|000013a0| 65 73 20 74 68 65 20 71 | 75 61 64 72 61 6e 74 20 |es the q|uadrant |
|000013b0| 6f 66 20 41 4e 47 4c 45 | 2e 22 5d 29 0a 28 66 73 |of ANGLE|."]).(fs|
|000013c0| 65 74 20 27 73 6f 6c 61 | 72 2d 61 72 63 74 61 6e |et 'sola|r-arctan|
|000013d0| 20 23 5b 28 78 20 71 75 | 61 64 29 20 22 c0 09 21 | #[(x qu|ad) "..!|
|000013e0| c2 5f 1b 0c c5 9a ab 85 | 0b c6 5c 5c aa 95 0c c7 |._......|..\\....|
|000013f0| 9a ab 85 0b c6 5c 5c aa | 8b 0c c8 9a ab 85 0b c9 |.....\\.|........|
|00001400| 5c 5c aa 81 0b 29 87 22 | 20 5b 61 74 61 6e 20 78 |\\...)."| [atan x|
|00001410| 20 35 37 2e 32 39 35 37 | 37 39 35 31 33 30 38 32 | 57.2957|79513082|
|00001420| 33 32 20 64 65 67 20 71 | 75 61 64 20 32 20 31 38 |32 deg q|uad 2 18|
|00001430| 30 20 33 20 34 20 33 36 | 30 5d 20 32 20 22 5c 0a |0 3 4 36|0] 2 "\.|
|00001440| 41 72 63 74 61 6e 67 65 | 6e 74 20 6f 66 20 58 20 |Arctange|nt of X |
|00001450| 69 6e 20 71 75 61 64 72 | 61 6e 74 20 51 55 41 44 |in quadr|ant QUAD|
|00001460| 2e 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |."]).(by|te-code |
|00001470| 22 c0 c1 4d 88 c2 c3 4d | 87 22 20 5b 73 6f 6c 61 |"..M...M|." [sola|
|00001480| 72 2d 61 72 63 63 6f 73 | 20 23 5b 28 78 29 20 22 |r-arccos| #[(x) "|
|00001490| c0 c1 5c 6e 89 5f 5a 21 | 1b c4 0b 5c 6e a5 c5 5c |..\n._Z!|...\n..\|
|000014a0| 6e 0b 5c 22 5c 22 29 87 | 22 20 5b 73 71 72 74 20 |n.\"\").|" [sqrt |
|000014b0| 31 20 78 20 79 20 73 6f | 6c 61 72 2d 61 72 63 74 |1 x y so|lar-arct|
|000014c0| 61 6e 20 73 6f 6c 61 72 | 2d 78 79 2d 74 6f 2d 71 |an solar|-xy-to-q|
|000014d0| 75 61 64 72 61 6e 74 5d | 20 35 5d 20 73 6f 6c 61 |uadrant]| 5] sola|
|000014e0| 72 2d 61 72 63 73 69 6e | 20 23 5b 28 79 29 20 22 |r-arcsin| #[(y) "|
|000014f0| c0 c1 5c 6e 89 5f 5a 21 | 1b c4 5c 6e 0b a5 c5 0b |..\n._Z!|..\n....|
|00001500| 5c 6e 5c 22 5c 22 29 87 | 22 20 5b 73 71 72 74 20 |\n\"\").|" [sqrt |
|00001510| 31 20 79 20 78 20 73 6f | 6c 61 72 2d 61 72 63 74 |1 y x so|lar-arct|
|00001520| 61 6e 20 73 6f 6c 61 72 | 2d 78 79 2d 74 6f 2d 71 |an solar|-xy-to-q|
|00001530| 75 61 64 72 61 6e 74 5d | 20 35 5d 5d 20 32 29 0a |uadrant]| 5]] 2).|
|00001540| 28 64 65 66 63 6f 6e 73 | 74 20 73 6f 6c 61 72 2d |(defcons|t solar-|
|00001550| 65 61 72 74 68 2d 69 6e | 63 6c 69 6e 61 74 69 6f |earth-in|clinatio|
|00001560| 6e 20 32 33 2e 34 34 31 | 38 38 34 20 22 5c 0a 49 |n 23.441|884 "\.I|
|00001570| 6e 63 6c 69 6e 61 74 69 | 6f 6e 20 6f 66 20 65 61 |nclinati|on of ea|
|00001580| 72 74 68 27 73 20 65 71 | 75 61 74 6f 72 20 74 6f |rth's eq|uator to|
|00001590| 20 69 74 73 20 73 6f 6c | 61 72 20 6f 72 62 69 74 | its sol|ar orbit|
|000015a0| 20 69 6e 20 64 65 67 72 | 65 65 73 2e 22 29 0a 28 | in degr|ees.").(|
|000015b0| 64 65 66 63 6f 6e 73 74 | 20 73 6f 6c 61 72 2d 63 |defconst| solar-c|
|000015c0| 6f 73 2d 69 6e 63 6c 69 | 6e 61 74 69 6f 6e 20 28 |os-incli|nation (|
|000015d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 19 c2 09 c3 |byte-cod|e ".....|
|000015e0| 5f 21 29 87 22 20 5b 73 | 6f 6c 61 72 2d 65 61 72 |_!)." [s|olar-ear|
|000015f0| 74 68 2d 69 6e 63 6c 69 | 6e 61 74 69 6f 6e 20 78 |th-incli|nation x|
|00001600| 20 63 6f 73 20 30 2e 30 | 31 37 34 35 33 32 39 32 | cos 0.0|17453292|
|00001610| 35 31 39 39 34 33 33 5d | 20 33 29 20 22 5c 0a 43 |5199433]| 3) "\.C|
|00001620| 6f 73 69 6e 65 20 6f 66 | 20 65 61 72 74 68 27 73 |osine of| earth's|
|00001630| 20 69 6e 63 6c 69 6e 61 | 74 69 6f 6e 2e 22 29 0a | inclina|tion.").|
|00001640| 28 64 65 66 63 6f 6e 73 | 74 20 73 6f 6c 61 72 2d |(defcons|t solar-|
|00001650| 73 69 6e 2d 69 6e 63 6c | 69 6e 61 74 69 6f 6e 20 |sin-incl|ination |
|00001660| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 19 c2 09 |(byte-co|de "....|
|00001670| c3 5f 21 29 87 22 20 5b | 73 6f 6c 61 72 2d 65 61 |._!)." [|solar-ea|
|00001680| 72 74 68 2d 69 6e 63 6c | 69 6e 61 74 69 6f 6e 20 |rth-incl|ination |
|00001690| 78 20 73 69 6e 20 30 2e | 30 31 37 34 35 33 32 39 |x sin 0.|01745329|
|000016a0| 32 35 31 39 39 34 33 33 | 5d 20 33 29 20 22 5c 0a |25199433|] 3) "\.|
|000016b0| 53 69 6e 65 20 6f 66 20 | 65 61 72 74 68 27 73 20 |Sine of |earth's |
|000016c0| 69 6e 63 6c 69 6e 61 74 | 69 6f 6e 2e 22 29 0a 28 |inclinat|ion.").(|
|000016d0| 64 65 66 63 6f 6e 73 74 | 20 73 6f 6c 61 72 2d 65 |defconst| solar-e|
|000016e0| 61 72 74 68 2d 6f 72 62 | 69 74 2d 65 63 63 65 6e |arth-orb|it-eccen|
|000016f0| 74 72 69 63 69 74 79 20 | 30 2e 30 31 36 37 31 38 |tricity |0.016718|
|00001700| 20 22 5c 0a 45 63 63 65 | 6e 74 72 69 63 69 74 79 | "\.Ecce|ntricity|
|00001710| 20 6f 66 20 6f 72 62 69 | 74 20 6f 66 20 74 68 65 | of orbi|t of the|
|00001720| 20 65 61 72 74 68 20 61 | 72 6f 75 6e 64 20 74 68 | earth a|round th|
|00001730| 65 20 73 75 6e 2e 22 29 | 0a 28 62 79 74 65 2d 63 |e sun.")|.(byte-c|
|00001740| 6f 64 65 20 22 c0 c1 4d | 88 c0 c2 4e c3 3e ac 85 |ode "..M|...N.>..|
|00001750| c4 c5 c0 5c 22 88 c6 c0 | c2 c7 23 88 c8 c9 4d 88 |...\"...|..#...M.|
|00001760| c8 c2 4e c3 3e ac 85 c4 | c5 c8 5c 22 88 c6 c8 c2 |..N.>...|..\"....|
|00001770| c7 23 87 22 20 5b 73 6f | 6c 61 72 2d 64 65 67 72 |.#." [so|lar-degr|
|00001780| 65 65 73 2d 74 6f 2d 68 | 6f 75 72 73 20 23 5b 28 |ees-to-h|ours #[(|
|00001790| 64 65 67 29 20 22 08 c1 | a5 87 22 20 5b 64 65 67 |deg) "..|.." [deg|
|000017a0| 20 31 35 2e 30 5d 20 32 | 5d 20 62 79 74 65 2d 6f | 15.0] 2|] byte-o|
|000017b0| 70 74 69 6d 69 7a 65 72 | 20 28 6e 69 6c 20 62 79 |ptimizer| (nil by|
|000017c0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|000017d0| 65 2d 65 78 70 61 6e 64 | 29 20 65 72 72 6f 72 20 |e-expand|) error |
|000017e0| 22 25 73 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 |"%s alre|ady has |
|000017f0| 61 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |a byte-o|ptimizer|
|00001800| 2c 20 63 61 6e 27 74 20 | 6d 61 6b 65 20 69 74 20 |, can't |make it |
|00001810| 69 6e 6c 69 6e 65 22 20 | 70 75 74 20 62 79 74 65 |inline" |put byte|
|00001820| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|00001830| 65 78 70 61 6e 64 20 73 | 6f 6c 61 72 2d 68 6f 75 |expand s|olar-hou|
|00001840| 72 73 2d 74 6f 2d 64 61 | 79 73 20 23 5b 28 68 6f |rs-to-da|ys #[(ho|
|00001850| 75 72 29 20 22 08 c1 a5 | 87 22 20 5b 68 6f 75 72 |ur) "...|." [hour|
|00001860| 20 32 34 2e 30 5d 20 32 | 5d 5d 20 34 29 0a 28 66 | 24.0] 2|]] 4).(f|
|00001870| 73 65 74 20 27 73 6f 6c | 61 72 2d 6c 6f 6e 67 69 |set 'sol|ar-longi|
|00001880| 74 75 64 65 2d 6f 66 2d | 73 75 6e 20 23 5b 28 64 |tude-of-|sun #[(d|
|00001890| 61 79 29 20 22 08 c1 5f | c2 5a 1b c4 0b 89 1d c6 |ay) ".._|.Z......|
|000018a0| 0d c7 5f 21 29 c8 5f 0b | 89 5c 5c 1d c6 0d c7 5f |.._!)._.|.\\...._|
|000018b0| 21 29 c9 5f ca 5c 5c 5c | 5c 5c 5c cb 5c 22 29 87 |!)._.\\\|\\\.\").|
|000018c0| 22 20 5b 64 61 79 20 30 | 2e 39 38 35 36 20 33 2e |" [day 0|.9856 3.|
|000018d0| 32 38 39 20 6d 65 61 6e | 2d 61 6e 6f 6d 61 6c 79 |289 mean|-anomaly|
|000018e0| 20 6d 6f 64 20 78 20 73 | 69 6e 20 30 2e 30 31 37 | mod x s|in 0.017|
|000018f0| 34 35 33 32 39 32 35 31 | 39 39 34 33 33 20 31 2e |45329251|99433 1.|
|00001900| 39 31 36 20 30 2e 30 32 | 20 32 38 32 2e 36 33 34 |916 0.02| 282.634|
|00001910| 20 33 36 30 5d 20 36 20 | 22 5c 0a 4c 6f 6e 67 69 | 360] 6 |"\.Longi|
|00001920| 74 75 64 65 20 6f 66 20 | 74 68 65 20 73 75 6e 20 |tude of |the sun |
|00001930| 61 74 20 44 41 59 20 69 | 6e 20 74 68 65 20 79 65 |at DAY i|n the ye|
|00001940| 61 72 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 73 6f |ar."]).(|fset 'so|
|00001950| 6c 61 72 2d 72 69 67 68 | 74 2d 61 73 63 65 6e 73 |lar-righ|t-ascens|
|00001960| 69 6f 6e 20 23 5b 28 6c | 6f 6e 67 69 74 75 64 65 |ion #[(l|ongitude|
|00001970| 29 20 22 c0 09 c2 0b 21 | 5f c4 0b 21 5c 22 89 1d |) "....!|_..!\"..|
|00001980| c6 a5 29 87 22 20 5b 73 | 6f 6c 61 72 2d 61 72 63 |..)." [s|olar-arc|
|00001990| 74 61 6e 20 73 6f 6c 61 | 72 2d 63 6f 73 2d 69 6e |tan sola|r-cos-in|
|000019a0| 63 6c 69 6e 61 74 69 6f | 6e 20 73 6f 6c 61 72 2d |clinatio|n solar-|
|000019b0| 74 61 6e 67 65 6e 74 2d | 64 65 67 72 65 65 73 20 |tangent-|degrees |
|000019c0| 6c 6f 6e 67 69 74 75 64 | 65 20 73 6f 6c 61 72 2d |longitud|e solar-|
|000019d0| 64 65 67 72 65 65 73 2d | 74 6f 2d 71 75 61 64 72 |degrees-|to-quadr|
|000019e0| 61 6e 74 20 64 65 67 20 | 31 35 2e 30 5d 20 35 20 |ant deg |15.0] 5 |
|000019f0| 22 5c 0a 52 69 67 68 74 | 20 61 73 63 65 6e 73 69 |"\.Right| ascensi|
|00001a00| 6f 6e 20 6f 66 20 74 68 | 65 20 73 75 6e 2c 20 67 |on of th|e sun, g|
|00001a10| 69 76 65 6e 20 69 74 73 | 20 4c 4f 4e 47 49 54 55 |iven its| LONGITU|
|00001a20| 44 45 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 73 6f |DE."]).(|fset 'so|
|00001a30| 6c 61 72 2d 64 65 63 6c | 69 6e 61 74 69 6f 6e 20 |lar-decl|ination |
|00001a40| 23 5b 28 6c 6f 6e 67 69 | 74 75 64 65 29 20 22 c0 |#[(longi|tude) ".|
|00001a50| 09 5c 6e 1b c4 0b c5 5f | 21 29 5f 21 87 22 20 5b |.\n...._|!)_!." [|
|00001a60| 73 6f 6c 61 72 2d 61 72 | 63 73 69 6e 20 73 6f 6c |solar-ar|csin sol|
|00001a70| 61 72 2d 73 69 6e 2d 69 | 6e 63 6c 69 6e 61 74 69 |ar-sin-i|nclinati|
|00001a80| 6f 6e 20 6c 6f 6e 67 69 | 74 75 64 65 20 78 20 73 |on longi|tude x s|
|00001a90| 69 6e 20 30 2e 30 31 37 | 34 35 33 32 39 32 35 31 |in 0.017|45329251|
|00001aa0| 39 39 34 33 33 5d 20 35 | 20 22 5c 0a 44 65 63 6c |99433] 5| "\.Decl|
|00001ab0| 69 6e 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 73 |ination |of the s|
|00001ac0| 75 6e 2c 20 67 69 76 65 | 6e 20 69 74 73 20 4c 4f |un, give|n its LO|
|00001ad0| 4e 47 49 54 55 44 45 2e | 22 5d 29 0a 28 66 73 65 |NGITUDE.|"]).(fse|
|00001ae0| 74 20 27 73 6f 6c 61 72 | 2d 73 75 6e 72 69 73 65 |t 'solar|-sunrise|
|00001af0| 20 23 5b 28 64 61 74 65 | 29 20 22 08 89 18 89 18 | #[(date|) ".....|
|00001b00| 40 29 19 08 89 18 41 40 | 29 1a 08 89 18 41 41 40 |@)....A@|)....AA@|
|00001b10| 29 1b 5c 6e 09 53 c4 5f | 5c 5c 1d 09 c6 56 ab a6 |).\n.S._|\\...V..|
|00001b20| 0d 09 c7 5f c8 5c 5c c9 | a5 5a 15 0b 89 1b c7 a6 |..._.\\.|.Z......|
|00001b30| ca 55 ad 8d 0b cb a6 ca | 55 3f ae 85 0b cc a6 ca |.U......|U?......|
|00001b40| 55 29 ab 83 0d 54 15 0d | 2d 89 1d cd 0e 0e a7 ab |U)...T..|-.......|
|00001b50| 84 0e 0e aa 9d 0e 0e ca | 48 0e 0e cf 48 d0 a5 5c |........|H...H..\|
|00001b60| 5c 1e 11 0e 0e c6 48 d2 | 9a ab 84 0e 11 aa 83 0e |\.....H.|........|
|00001b70| 11 5b 29 89 1e 13 d4 a5 | 29 5a 89 1e 15 d6 a5 29 |.[).....|)Z.....)|
|00001b80| 5c 5c 1e 17 d8 0e 17 21 | 1e 19 da 0e 19 21 1e 1b |\\.....!|.....!..|
|00001b90| dc 0e 19 21 1e 1d de 1e | 1f e0 0e 1f e1 5f 21 29 |...!....|....._!)|
|00001ba0| 0e 1d 1e 1f e2 0e 1f e3 | 5f 21 29 0e 24 a7 ab 84 |........|_!).$...|
|00001bb0| 0e 24 aa 9d 0e 24 ca 48 | 0e 24 cf 48 e5 a5 5c 5c |.$...$.H|.$.H..\\|
|00001bc0| 1e 26 0e 24 c6 48 e7 9a | ab 84 0e 26 aa 83 0e 26 |.&.$.H..|...&...&|
|00001bd0| 5b 29 1e 1f e2 0e 1f e3 | 5f 21 29 5f 5a 0e 1d 1e |[)......|_!)_Z...|
|00001be0| 1f e0 0e 1f e1 5f 21 29 | 0e 24 a7 ab 84 0e 24 aa |....._!)|.$....$.|
|00001bf0| 9d 0e 24 ca 48 0e 24 cf | 48 e5 a5 5c 5c 1e 26 0e |..$.H.$.|H..\\.&.|
|00001c00| 24 c6 48 e7 9a ab 84 0e | 26 aa 83 0e 26 5b 29 1e |$.H.....|&...&[).|
|00001c10| 1f e0 0e 1f e1 5f 21 29 | 5f a5 1e 28 e9 0e 28 21 |....._!)|_..(..(!|
|00001c20| cf 58 ad d3 ea eb 0e 28 | 21 5a 89 1e 13 d4 a5 29 |.X.....(|!Z.....)|
|00001c30| 1e 2c ed 0e 2c 0e 1b 5c | 5c 0e 17 ee 5f ef 5c 5c |.,..,..\|\..._.\\|
|00001c40| 5a f0 5c 22 89 1e 31 0e | 0e a7 ab 84 0e 0e aa 9d |Z.\"..1.|........|
|00001c50| 0e 0e ca 48 0e 0e cf 48 | d0 a5 5c 5c 1e 11 0e 0e |...H...H|..\\....|
|00001c60| c6 48 d2 9a ab 84 0e 11 | aa 83 0e 11 5b 29 89 1e |.H......|....[)..|
|00001c70| 13 d4 a5 29 5a 0e 32 f3 | a5 5c 5c 2a 2e 06 87 22 |...)Z.2.|.\\*..."|
|00001c80| 20 5b 64 61 74 65 20 6d | 6f 6e 74 68 20 64 61 79 | [date m|onth day|
|00001c90| 20 79 65 61 72 20 33 31 | 20 64 61 79 2d 6f 66 2d | year 31| day-of-|
|00001ca0| 79 65 61 72 20 32 20 34 | 20 32 33 20 31 30 20 30 |year 2 4| 23 10 0|
|00001cb0| 20 31 30 30 20 34 30 30 | 20 36 20 63 61 6c 65 6e | 100 400| 6 calen|
|00001cc0| 64 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 20 31 20 |dar-long|itude 1 |
|00001cd0| 36 30 2e 30 20 6c 6f 6e | 67 20 65 61 73 74 20 64 |60.0 lon|g east d|
|00001ce0| 65 67 20 31 35 2e 30 20 | 68 6f 75 72 20 32 34 2e |eg 15.0 |hour 24.|
|00001cf0| 30 20 61 70 70 72 6f 78 | 2d 73 75 6e 72 69 73 65 |0 approx|-sunrise|
|00001d00| 20 73 6f 6c 61 72 2d 6c | 6f 6e 67 69 74 75 64 65 | solar-l|ongitude|
|00001d10| 2d 6f 66 2d 73 75 6e 20 | 73 6f 6c 61 72 2d 6c 6f |-of-sun |solar-lo|
|00001d20| 6e 67 69 74 75 64 65 2d | 6f 66 2d 73 75 6e 2d 61 |ngitude-|of-sun-a|
|00001d30| 74 2d 73 75 6e 72 69 73 | 65 20 73 6f 6c 61 72 2d |t-sunris|e solar-|
|00001d40| 72 69 67 68 74 2d 61 73 | 63 65 6e 73 69 6f 6e 20 |right-as|cension |
|00001d50| 73 6f 6c 61 72 2d 72 69 | 67 68 74 2d 61 73 63 65 |solar-ri|ght-asce|
|00001d60| 6e 73 69 6f 6e 2d 61 74 | 2d 73 75 6e 72 69 73 65 |nsion-at|-sunrise|
|00001d70| 20 73 6f 6c 61 72 2d 64 | 65 63 6c 69 6e 61 74 69 | solar-d|eclinati|
|00001d80| 6f 6e 20 73 6f 6c 61 72 | 2d 64 65 63 6c 69 6e 61 |on solar|-declina|
|00001d90| 74 69 6f 6e 2d 61 74 2d | 73 75 6e 72 69 73 65 20 |tion-at-|sunrise |
|00001da0| 39 30 2e 38 33 33 33 33 | 33 33 33 33 33 33 33 33 |90.83333|33333333|
|00001db0| 33 20 78 20 63 6f 73 20 | 30 2e 30 31 37 34 35 33 |3 x cos |0.017453|
|00001dc0| 32 39 32 35 31 39 39 34 | 33 33 20 73 69 6e 20 30 |29251994|33 sin 0|
|00001dd0| 2e 30 31 37 34 35 33 32 | 39 32 35 31 39 39 34 33 |.0174532|92519943|
|00001de0| 33 20 63 61 6c 65 6e 64 | 61 72 2d 6c 61 74 69 74 |3 calend|ar-latit|
|00001df0| 75 64 65 20 36 30 2e 30 | 20 6c 61 74 20 6e 6f 72 |ude 60.0| lat nor|
|00001e00| 74 68 20 63 6f 73 2d 6c | 6f 63 61 6c 2d 73 75 6e |th cos-l|ocal-sun|
|00001e10| 72 69 73 65 20 61 62 73 | 20 33 36 30 20 73 6f 6c |rise abs| 360 sol|
|00001e20| 61 72 2d 61 72 63 63 6f | 73 20 6c 6f 63 61 6c 2d |ar-arcco|s local-|
|00001e30| 73 75 6e 72 69 73 65 20 | 6d 6f 64 20 30 2e 30 36 |sunrise |mod 0.06|
|00001e40| 35 37 31 20 36 2e 36 32 | 32 20 32 34 20 6c 6f 63 |571 6.62|2 24 loc|
|00001e50| 61 6c 2d 6d 65 61 6e 2d | 73 75 6e 72 69 73 65 20 |al-mean-|sunrise |
|00001e60| 63 61 6c 65 6e 64 61 72 | 2d 74 69 6d 65 2d 7a 6f |calendar|-time-zo|
|00001e70| 6e 65 20 36 30 2e 30 5d | 20 36 20 22 5c 0a 43 61 |ne 60.0]| 6 "\.Ca|
|00001e80| 6c 63 75 6c 61 74 65 73 | 20 74 68 65 20 2a 73 74 |lculates| the *st|
|00001e90| 61 6e 64 61 72 64 2a 20 | 74 69 6d 65 20 6f 66 20 |andard* |time of |
|00001ea0| 73 75 6e 72 69 73 65 20 | 66 6f 72 20 47 72 65 67 |sunrise |for Greg|
|00001eb0| 6f 72 69 61 6e 20 44 41 | 54 45 2e 0a 43 61 6c 63 |orian DA|TE..Calc|
|00001ec0| 75 6c 61 74 69 6f 6e 20 | 69 73 20 66 6f 72 20 6c |ulation |is for l|
|00001ed0| 6f 63 61 74 69 6f 6e 20 | 67 69 76 65 6e 20 62 79 |ocation |given by|
|00001ee0| 20 60 63 61 6c 65 6e 64 | 61 72 2d 6c 61 74 69 74 | `calend|ar-latit|
|00001ef0| 75 64 65 27 20 61 6e 64 | 0a 60 63 61 6c 65 6e 64 |ude' and|.`calend|
|00001f00| 61 72 2d 6c 6f 6e 67 69 | 74 75 64 65 27 2e 0a 0a |ar-longi|tude'...|
|00001f10| 52 65 74 75 72 6e 73 20 | 61 20 64 65 63 69 6d 61 |Returns |a decima|
|00001f20| 6c 20 66 72 61 63 74 69 | 6f 6e 20 6f 66 20 68 6f |l fracti|on of ho|
|00001f30| 75 72 73 2e 20 20 52 65 | 74 75 72 6e 73 20 6e 69 |urs.  Re|turns ni|
|00001f40| 6c 20 69 66 20 74 68 65 | 20 73 75 6e 20 64 6f 65 |l if the| sun doe|
|00001f50| 73 20 6e 6f 74 20 72 69 | 73 65 20 61 74 0a 74 68 |s not ri|se at.th|
|00001f60| 61 74 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 6e 20 74 |at locat|ion on t|
|00001f70| 68 61 74 20 64 61 79 2e | 22 5d 29 0a 28 66 73 65 |hat day.|"]).(fse|
|00001f80| 74 20 27 73 6f 6c 61 72 | 2d 73 75 6e 73 65 74 20 |t 'solar|-sunset |
|00001f90| 23 5b 28 64 61 74 65 29 | 20 22 08 89 18 89 18 40 |#[(date)| ".....@|
|00001fa0| 29 19 08 89 18 41 40 29 | 1a 08 89 18 41 41 40 29 |)....A@)|....AA@)|
|00001fb0| 1b 5c 6e 09 53 c4 5f 5c | 5c 1d 09 c6 56 ab a6 0d |.\n.S._\|\...V...|
|00001fc0| 09 c7 5f c8 5c 5c c9 a5 | 5a 15 0b 89 1b c7 a6 ca |.._.\\..|Z.......|
|00001fd0| 55 ad 8d 0b cb a6 ca 55 | 3f ae 85 0b cc a6 ca 55 |U......U|?......U|
|00001fe0| 29 ab 83 0d 54 15 0d 2d | 89 1d cd 0e 0e a7 ab 84 |)...T..-|........|
|00001ff0| 0e 0e aa 9d 0e 0e ca 48 | 0e 0e cf 48 d0 a5 5c 5c |.......H|...H..\\|
|00002000| 1e 11 0e 0e c6 48 d2 9a | ab 84 0e 11 aa 83 0e 11 |.....H..|........|
|00002010| 5b 29 89 1e 13 d4 a5 29 | 5a 89 1e 15 d6 a5 29 5c |[).....)|Z.....)\|
|00002020| 5c 1e 17 d8 0e 17 21 1e | 19 da 0e 19 21 1e 1b dc |\.....!.|....!...|
|00002030| 0e 19 21 1e 1d de 1e 1f | e0 0e 1f e1 5f 21 29 0e |..!.....|...._!).|
|00002040| 1d 1e 1f e2 0e 1f e3 5f | 21 29 0e 24 a7 ab 84 0e |......._|!).$....|
|00002050| 24 aa 9d 0e 24 ca 48 0e | 24 cf 48 e5 a5 5c 5c 1e |$...$.H.|$.H..\\.|
|00002060| 26 0e 24 c6 48 e7 9a ab | 84 0e 26 aa 83 0e 26 5b |&.$.H...|..&...&[|
|00002070| 29 1e 1f e2 0e 1f e3 5f | 21 29 5f 5a 0e 1d 1e 1f |)......_|!)_Z....|
|00002080| e0 0e 1f e1 5f 21 29 0e | 24 a7 ab 84 0e 24 aa 9d |...._!).|$....$..|
|00002090| 0e 24 ca 48 0e 24 cf 48 | e5 a5 5c 5c 1e 26 0e 24 |.$.H.$.H|..\\.&.$|
|000020a0| c6 48 e7 9a ab 84 0e 26 | aa 83 0e 26 5b 29 1e 1f |.H.....&|...&[)..|
|000020b0| e0 0e 1f e1 5f 21 29 5f | a5 1e 28 e9 0e 28 21 cf |...._!)_|..(..(!.|
|000020c0| 58 ad d1 ea 0e 28 21 89 | 1e 13 d4 a5 29 1e 2b ec |X....(!.|....).+.|
|000020d0| 0e 2b 0e 1b 5c 5c 0e 17 | ed 5f ee 5c 5c 5a ef 5c |.+..\\..|._.\\Z.\|
|000020e0| 22 89 1e 30 0e 0e a7 ab | 84 0e 0e aa 9d 0e 0e ca |"..0....|........|
|000020f0| 48 0e 0e cf 48 d0 a5 5c | 5c 1e 11 0e 0e c6 48 d2 |H...H..\|\.....H.|
|00002100| 9a ab 84 0e 11 aa 83 0e | 11 5b 29 89 1e 13 d4 a5 |........|.[).....|
|00002110| 29 5a 0e 31 f2 a5 5c 5c | 2a 2e 06 87 22 20 5b 64 |)Z.1..\\|*..." [d|
|00002120| 61 74 65 20 6d 6f 6e 74 | 68 20 64 61 79 20 79 65 |ate mont|h day ye|
|00002130| 61 72 20 33 31 20 64 61 | 79 2d 6f 66 2d 79 65 61 |ar 31 da|y-of-yea|
|00002140| 72 20 32 20 34 20 32 33 | 20 31 30 20 30 20 31 30 |r 2 4 23| 10 0 10|
|00002150| 30 20 34 30 30 20 31 38 | 20 63 61 6c 65 6e 64 61 |0 400 18| calenda|
|00002160| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 20 31 20 36 30 |r-longit|ude 1 60|
|00002170| 2e 30 20 6c 6f 6e 67 20 | 65 61 73 74 20 64 65 67 |.0 long |east deg|
|00002180| 20 31 35 2e 30 20 68 6f | 75 72 20 32 34 2e 30 20 | 15.0 ho|ur 24.0 |
|00002190| 61 70 70 72 6f 78 2d 73 | 75 6e 73 65 74 20 73 6f |approx-s|unset so|
|000021a0| 6c 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 2d 6f 66 |lar-long|itude-of|
|000021b0| 2d 73 75 6e 20 73 6f 6c | 61 72 2d 6c 6f 6e 67 69 |-sun sol|ar-longi|
|000021c0| 74 75 64 65 2d 6f 66 2d | 73 75 6e 2d 61 74 2d 73 |tude-of-|sun-at-s|
|000021d0| 75 6e 73 65 74 20 73 6f | 6c 61 72 2d 72 69 67 68 |unset so|lar-righ|
|000021e0| 74 2d 61 73 63 65 6e 73 | 69 6f 6e 20 73 6f 6c 61 |t-ascens|ion sola|
|000021f0| 72 2d 72 69 67 68 74 2d | 61 73 63 65 6e 73 69 6f |r-right-|ascensio|
|00002200| 6e 2d 61 74 2d 73 75 6e | 73 65 74 20 73 6f 6c 61 |n-at-sun|set sola|
|00002210| 72 2d 64 65 63 6c 69 6e | 61 74 69 6f 6e 20 73 6f |r-declin|ation so|
|00002220| 6c 61 72 2d 64 65 63 6c | 69 6e 61 74 69 6f 6e 2d |lar-decl|ination-|
|00002230| 61 74 2d 73 75 6e 73 65 | 74 20 39 30 2e 38 33 33 |at-sunse|t 90.833|
|00002240| 33 33 33 33 33 33 33 33 | 33 33 33 20 78 20 63 6f |33333333|333 x co|
|00002250| 73 20 30 2e 30 31 37 34 | 35 33 32 39 32 35 31 39 |s 0.0174|53292519|
|00002260| 39 34 33 33 20 73 69 6e | 20 30 2e 30 31 37 34 35 |9433 sin| 0.01745|
|00002270| 33 32 39 32 35 31 39 39 | 34 33 33 20 63 61 6c 65 |32925199|433 cale|
|00002280| 6e 64 61 72 2d 6c 61 74 | 69 74 75 64 65 20 36 30 |ndar-lat|itude 60|
|00002290| 2e 30 20 6c 61 74 20 6e | 6f 72 74 68 20 63 6f 73 |.0 lat n|orth cos|
|000022a0| 2d 6c 6f 63 61 6c 2d 73 | 75 6e 73 65 74 20 61 62 |-local-s|unset ab|
|000022b0| 73 20 73 6f 6c 61 72 2d | 61 72 63 63 6f 73 20 6c |s solar-|arccos l|
|000022c0| 6f 63 61 6c 2d 73 75 6e | 73 65 74 20 6d 6f 64 20 |ocal-sun|set mod |
|000022d0| 30 2e 30 36 35 37 31 20 | 36 2e 36 32 32 20 32 34 |0.06571 |6.622 24|
|000022e0| 20 6c 6f 63 61 6c 2d 6d | 65 61 6e 2d 73 75 6e 73 | local-m|ean-suns|
|000022f0| 65 74 20 63 61 6c 65 6e | 64 61 72 2d 74 69 6d 65 |et calen|dar-time|
|00002300| 2d 7a 6f 6e 65 20 36 30 | 2e 30 5d 20 36 20 22 5c |-zone 60|.0] 6 "\|
|00002310| 0a 43 61 6c 63 75 6c 61 | 74 65 73 20 74 68 65 20 |.Calcula|tes the |
|00002320| 2a 73 74 61 6e 64 61 72 | 64 2a 20 74 69 6d 65 20 |*standar|d* time |
|00002330| 6f 66 20 73 75 6e 73 65 | 74 20 66 6f 72 20 47 72 |of sunse|t for Gr|
|00002340| 65 67 6f 72 69 61 6e 20 | 44 41 54 45 2e 0a 43 61 |egorian |DATE..Ca|
|00002350| 6c 63 75 6c 61 74 69 6f | 6e 20 69 73 20 66 6f 72 |lculatio|n is for|
|00002360| 20 6c 6f 63 61 74 69 6f | 6e 20 67 69 76 65 6e 20 | locatio|n given |
|00002370| 62 79 20 60 63 61 6c 65 | 6e 64 61 72 2d 6c 61 74 |by `cale|ndar-lat|
|00002380| 69 74 75 64 65 27 20 61 | 6e 64 0a 60 63 61 6c 65 |itude' a|nd.`cale|
|00002390| 6e 64 61 72 2d 6c 6f 6e | 67 69 74 75 64 65 27 2e |ndar-lon|gitude'.|
|000023a0| 0a 0a 52 65 74 75 72 6e | 73 20 61 20 64 65 63 69 |..Return|s a deci|
|000023b0| 6d 61 6c 20 66 72 61 63 | 74 69 6f 6e 73 20 6f 66 |mal frac|tions of|
|000023c0| 20 68 6f 75 72 73 2e 20 | 20 52 65 74 75 72 6e 73 | hours. | Returns|
|000023d0| 20 6e 69 6c 20 69 66 20 | 74 68 65 20 73 75 6e 20 | nil if |the sun |
|000023e0| 64 6f 65 73 20 6e 6f 74 | 20 73 65 74 20 61 74 0a |does not| set at.|
|000023f0| 74 68 61 74 20 6c 6f 63 | 61 74 69 6f 6e 20 6f 6e |that loc|ation on|
|00002400| 20 74 68 61 74 20 64 61 | 79 2e 22 5d 29 0a 28 66 | that da|y."]).(f|
|00002410| 73 65 74 20 27 73 6f 6c | 61 72 2d 61 64 6a 2d 74 |set 'sol|ar-adj-t|
|00002420| 69 6d 65 2d 66 6f 72 2d | 64 73 74 20 23 5b 28 64 |ime-for-|dst #[(d|
|00002430| 61 74 65 20 74 69 6d 65 | 20 26 6f 70 74 69 6f 6e |ate time| &option|
|00002440| 61 6c 20 73 74 79 6c 65 | 29 20 22 08 89 18 41 41 |al style|) "...AA|
|00002450| 40 29 19 08 89 18 89 18 | 41 41 40 29 53 1a 08 89 |@)......|AA@)S...|
|00002460| 18 89 18 40 29 1b 08 89 | 18 41 40 29 1c 08 89 18 |...@)...|.A@)....|
|00002470| 41 41 40 29 19 0c 0b 53 | c5 5f 5c 5c 1e 06 0b c7 |AA@)...S|._\\....|
|00002480| 56 ab aa 0e 06 0b c8 5f | c9 5c 5c ca a5 5a 16 06 |V......_|.\\..Z..|
|00002490| 09 89 19 c8 a6 cb 55 ad | 8d 09 cc a6 cb 55 3f ae |......U.|.....U?.|
|000024a0| 85 09 cd a6 cb 55 29 ab | 85 0e 06 54 16 06 0e 06 |.....U).|...T....|
|000024b0| 2d 5c 6e ce 5f 5c 6e c8 | a5 5c 6e cc a5 5b 5c 6e |-\n._\n.|.\n..[\n|
|000024c0| cd a5 5c 5c 5c 5c 5c 5c | 5c 5c 2a cf 0e 10 d1 5f |..\\\\\\|\\*...._|
|000024d0| 21 d2 a5 5c 5c 1e 13 0e | 14 ad f6 d5 0e 14 21 89 |!..\\...|......!.|
|000024e0| 18 89 18 41 41 40 29 53 | 1a 08 89 18 89 18 40 29 |...AA@)S|......@)|
|000024f0| 1b 08 89 18 41 40 29 1c | 08 89 18 41 41 40 29 19 |....A@).|...AA@).|
|00002500| 0c 0b 53 c5 5f 5c 5c 1e | 06 0b c7 56 ab aa 0e 06 |..S._\\.|...V....|
|00002510| 0b c8 5f c9 5c 5c ca a5 | 5a 16 06 09 89 19 c8 a6 |.._.\\..|Z.......|
|00002520| cb 55 ad 8d 09 cc a6 cb | 55 3f ae 85 09 cd a6 cb |.U......|U?......|
|00002530| 55 29 ab 85 0e 06 54 16 | 06 0e 06 2d 5c 6e ce 5f |U)....T.|...-\n._|
|00002540| 5c 6e c8 a5 5c 6e cc a5 | 5b 5c 6e cd a5 5c 5c 5c |\n..\n..|[\n..\\\|
|00002550| 5c 5c 5c 5c 5c 2a 0e 16 | d7 a5 5c 5c 1e 18 0e 19 |\\\\\*..|..\\....|
|00002560| ad f9 d5 0e 19 21 89 18 | 89 18 41 41 40 29 53 1a |.....!..|..AA@)S.|
|00002570| 08 89 18 89 18 40 29 1b | 08 89 18 41 40 29 1c 08 |.....@).|...A@)..|
|00002580| 89 18 41 41 40 29 19 0c | 0b 53 c5 5f 5c 5c 1e 06 |..AA@)..|.S._\\..|
|00002590| 0b c7 56 ab aa 0e 06 0b | c8 5f c9 5c 5c ca a5 5a |..V.....|._.\\..Z|
|000025a0| 16 06 09 89 19 c8 a6 cb | 55 ad 8d 09 cc a6 cb 55 |........|U......U|
|000025b0| 3f ae 85 09 cd a6 cb 55 | 29 ab 85 0e 06 54 16 06 |?......U|)....T..|
|000025c0| 0e 06 2d 5c 6e ce 5f 5c | 6e c8 a5 5c 6e cc a5 5b |..-\n._\|n..\n..[|
|000025d0| 5c 6e cd a5 5c 5c 5c 5c | 5c 5c 5c 5c 2a 0e 1a 0e |\n..\\\\|\\\\*...|
|000025e0| 1b 5a dc a5 5c 5c 1e 1d | 0e 1e df 3d 3f ad d5 0e |.Z..\\..|...=?...|
|000025f0| 1e e0 3d ae cf 0e 18 ab | ae 0e 1d ab aa 0e 18 0e |..=.....|........|
|00002600| 1d 57 ab 8e 0e 18 0e 13 | 58 ab 87 0e 13 0e 1d 57 |.W......|X......W|
|00002610| ae b2 0e 1d 0e 18 57 ab | 8e 0e 13 0e 1d 57 ae a4 |......W.|.....W..|
|00002620| 0e 18 0e 13 58 ae 9d 0e | 18 ab 8b 0e 1d ac 87 0e |....X...|........|
|00002630| 18 0e 13 58 ae 8e 0e 1d | ad 8a 0e 18 3f ad 85 0e |...X....|....?...|
|00002640| 13 0e 1d 57 89 1e 21 ab | 84 0e 5c 22 aa 82 0e 23 |...W..!.|..\"...#|
|00002650| 1e 24 0e 13 0e 21 ab 86 | 0e 1b e5 a5 aa 81 cb 5c |.$...!..|.......\|
|00002660| 5c 1e 10 e6 e7 0e 10 21 | 21 0e 10 e7 0e 10 21 5a |\......!|!.....!Z|
|00002670| e8 5f 0e 24 45 2e 07 87 | 22 20 5b 64 61 74 65 20 |._.$E...|" [date |
|00002680| 79 65 61 72 20 70 72 69 | 6f 72 2d 79 65 61 72 73 |year pri|or-years|
|00002690| 20 6d 6f 6e 74 68 20 64 | 61 79 20 33 31 20 64 61 | month d|ay 31 da|
|000026a0| 79 2d 6f 66 2d 79 65 61 | 72 20 32 20 34 20 32 33 |y-of-yea|r 2 4 23|
|000026b0| 20 31 30 20 30 20 31 30 | 30 20 34 30 30 20 33 36 | 10 0 10|0 400 36|
|000026c0| 35 20 72 6f 75 6e 64 20 | 74 69 6d 65 20 36 30 20 |5 round |time 60 |
|000026d0| 31 34 34 30 2e 30 20 72 | 6f 75 6e 64 65 64 2d 61 |1440.0 r|ounded-a|
|000026e0| 62 73 2d 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |bs-date |calendar|
|000026f0| 2d 64 61 79 6c 69 67 68 | 74 2d 73 61 76 69 6e 67 |-dayligh|t-saving|
|00002700| 73 2d 73 74 61 72 74 73 | 20 65 76 61 6c 20 63 61 |s-starts| eval ca|
|00002710| 6c 65 6e 64 61 72 2d 64 | 61 79 6c 69 67 68 74 2d |lendar-d|aylight-|
|00002720| 73 61 76 69 6e 67 73 2d | 73 74 61 72 74 73 2d 74 |savings-|starts-t|
|00002730| 69 6d 65 20 31 34 34 30 | 2e 30 20 64 73 74 2d 73 |ime 1440|.0 dst-s|
|00002740| 74 61 72 74 73 20 63 61 | 6c 65 6e 64 61 72 2d 64 |tarts ca|lendar-d|
|00002750| 61 79 6c 69 67 68 74 2d | 73 61 76 69 6e 67 73 2d |aylight-|savings-|
|00002760| 65 6e 64 73 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |ends cal|endar-da|
|00002770| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 65 |ylight-s|avings-e|
|00002780| 6e 64 73 2d 74 69 6d 65 | 20 63 61 6c 65 6e 64 61 |nds-time| calenda|
|00002790| 72 2d 64 61 79 6c 69 67 | 68 74 2d 74 69 6d 65 2d |r-daylig|ht-time-|
|000027a0| 6f 66 66 73 65 74 20 31 | 34 34 30 2e 30 20 64 73 |offset 1|440.0 ds|
|000027b0| 74 2d 65 6e 64 73 20 73 | 74 79 6c 65 20 73 74 61 |t-ends s|tyle sta|
|000027c0| 6e 64 61 72 64 20 64 61 | 79 6c 69 67 68 74 20 64 |ndard da|ylight d|
|000027d0| 73 74 20 63 61 6c 65 6e | 64 61 72 2d 64 61 79 6c |st calen|dar-dayl|
|000027e0| 69 67 68 74 2d 74 69 6d | 65 2d 7a 6f 6e 65 2d 6e |ight-tim|e-zone-n|
|000027f0| 61 6d 65 20 63 61 6c 65 | 6e 64 61 72 2d 73 74 61 |ame cale|ndar-sta|
|00002800| 6e 64 61 72 64 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2d |ndard-ti|me-zone-|
|00002810| 6e 61 6d 65 20 74 69 6d | 65 2d 7a 6f 6e 65 20 31 |name tim|e-zone 1|
|00002820| 34 34 30 2e 30 20 63 61 | 6c 65 6e 64 61 72 2d 67 |440.0 ca|lendar-g|
|00002830| 72 65 67 6f 72 69 61 6e | 2d 66 72 6f 6d 2d 61 62 |regorian|-from-ab|
|00002840| 73 6f 6c 75 74 65 20 74 | 72 75 6e 63 61 74 65 20 |solute t|runcate |
|00002850| 32 34 2e 30 5d 20 38 20 | 22 5c 0a 41 64 6a 75 73 |24.0] 8 |"\.Adjus|
|00002860| 74 20 64 65 63 69 6d 61 | 6c 20 66 72 61 63 74 69 |t decima|l fracti|
|00002870| 6f 6e 20 73 74 61 6e 64 | 61 72 64 20 54 49 4d 45 |on stand|ard TIME|
|00002880| 20 6f 6e 20 44 41 54 45 | 20 74 6f 20 61 63 63 6f | on DATE| to acco|
|00002890| 75 6e 74 20 66 6f 72 20 | 64 73 74 2e 0a 52 65 74 |unt for |dst..Ret|
|000028a0| 75 72 6e 73 20 61 20 6c | 69 73 74 20 28 64 61 74 |urns a l|ist (dat|
|000028b0| 65 20 61 64 6a 2d 74 69 | 6d 65 20 7a 6f 6e 65 29 |e adj-ti|me zone)|
|000028c0| 20 77 68 65 72 65 20 60 | 64 61 74 65 27 20 61 6e | where `|date' an|
|000028d0| 64 20 60 74 69 6d 65 27 | 20 61 72 65 20 74 68 65 |d `time'| are the|
|000028e0| 20 76 61 6c 75 65 73 0a | 61 64 6a 75 73 74 65 64 | values.|adjusted|
|000028f0| 20 66 6f 72 20 60 7a 6f | 6e 65 27 3b 20 68 65 72 | for `zo|ne'; her|
|00002900| 65 20 60 64 61 74 65 27 | 20 69 73 20 61 20 6c 69 |e `date'| is a li|
|00002910| 73 74 20 28 6d 6f 6e 74 | 68 20 64 61 79 20 79 65 |st (mont|h day ye|
|00002920| 61 72 29 2c 20 60 74 69 | 6d 65 27 20 69 73 20 61 |ar), `ti|me' is a|
|00002930| 0a 64 65 63 69 6d 61 6c | 20 66 72 61 63 74 69 6f |.decimal| fractio|
|00002940| 6e 20 74 69 6d 65 2c 20 | 61 6e 64 20 60 7a 6f 6e |n time, |and `zon|
|00002950| 65 27 20 69 73 20 61 20 | 73 74 72 69 6e 67 2e 0a |e' is a |string..|
|00002960| 0a 4f 70 74 69 6f 6e 61 | 6c 20 70 61 72 61 6d 65 |.Optiona|l parame|
|00002970| 74 65 72 20 53 54 59 4c | 45 20 66 6f 72 63 65 73 |ter STYL|E forces|
|00002980| 20 74 68 65 20 72 65 73 | 75 6c 74 20 74 69 6d 65 | the res|ult time|
|00002990| 20 74 6f 20 62 65 20 73 | 74 61 6e 64 61 72 64 20 | to be s|tandard |
|000029a0| 74 69 6d 65 20 77 68 65 | 6e 20 69 74 73 0a 76 61 |time whe|n its.va|
|000029b0| 6c 75 65 20 69 73 20 27 | 73 74 61 6e 64 61 72 64 |lue is '|standard|
|000029c0| 20 61 6e 64 20 64 61 79 | 6c 69 67 68 74 20 73 61 | and day|light sa|
|000029d0| 76 69 6e 67 73 20 74 69 | 6d 65 20 28 69 66 20 61 |vings ti|me (if a|
|000029e0| 76 61 69 6c 61 62 6c 65 | 29 20 77 68 65 6e 20 69 |vailable|) when i|
|000029f0| 74 73 20 76 61 6c 75 65 | 20 69 73 0a 27 64 61 79 |ts value| is.'day|
|00002a00| 6c 69 67 68 74 2e 0a 0a | 43 6f 6e 76 65 72 73 69 |light...|Conversi|
|00002a10| 6f 6e 20 74 6f 20 64 61 | 79 6c 69 67 68 74 20 73 |on to da|ylight s|
|00002a20| 61 76 69 6e 67 73 20 74 | 69 6d 65 20 69 73 20 64 |avings t|ime is d|
|00002a30| 6f 6e 65 20 61 63 63 6f | 72 64 69 6e 67 20 74 6f |one acco|rding to|
|00002a40| 0a 60 63 61 6c 65 6e 64 | 61 72 2d 64 61 79 6c 69 |.`calend|ar-dayli|
|00002a50| 67 68 74 2d 73 61 76 69 | 6e 67 73 2d 73 74 61 72 |ght-savi|ngs-star|
|00002a60| 74 73 27 2c 20 60 63 61 | 6c 65 6e 64 61 72 2d 64 |ts', `ca|lendar-d|
|00002a70| 61 79 6c 69 67 68 74 2d | 73 61 76 69 6e 67 73 2d |aylight-|savings-|
|00002a80| 65 6e 64 73 27 2c 0a 60 | 63 61 6c 65 6e 64 61 72 |ends',.`|calendar|
|00002a90| 2d 64 61 79 6c 69 67 68 | 74 2d 73 61 76 69 6e 67 |-dayligh|t-saving|
|00002aa0| 73 2d 73 74 61 72 74 73 | 2d 74 69 6d 65 27 2c 0a |s-starts|-time',.|
|00002ab0| 60 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 6c 69 67 |`calenda|r-daylig|
|00002ac0| 68 74 2d 73 61 76 69 6e | 67 73 2d 65 6e 64 73 2d |ht-savin|gs-ends-|
|00002ad0| 74 69 6d 65 27 2c 20 61 | 6e 64 0a 60 63 61 6c 65 |time', a|nd.`cale|
|00002ae0| 6e 64 61 72 2d 64 61 79 | 6c 69 67 68 74 2d 73 61 |ndar-day|light-sa|
|00002af0| 76 69 6e 67 73 2d 6f 66 | 66 73 65 74 27 2e 22 5d |vings-of|fset'."]|
|00002b00| 29 0a 28 66 73 65 74 20 | 27 73 6f 6c 61 72 2d 74 |).(fset |'solar-t|
|00002b10| 69 6d 65 2d 73 74 72 69 | 6e 67 20 23 5b 28 74 69 |ime-stri|ng #[(ti|
|00002b20| 6d 65 20 74 69 6d 65 2d | 7a 6f 6e 65 29 20 22 c0 |me time-|zone) ".|
|00002b30| 09 c2 5f 21 89 19 c2 a5 | 1b c4 c5 09 c2 a6 5c 22 |.._!....|......\"|
|00002b40| 1e 06 c4 c7 0b c8 5c 5c | c9 a6 54 5c 22 1e 5c 6e |......\\|..T\".\n|
|00002b50| 0b c9 59 ab 83 cb aa 81 | cc 1e 0d c4 c5 0b 5c 22 |..Y.....|......\"|
|00002b60| 1b ce cf 0e 10 d1 23 2e | 06 87 22 20 5b 72 6f 75 |......#.|.." [rou|
|00002b70| 6e 64 20 74 69 6d 65 20 | 36 30 20 32 34 2d 68 6f |nd time |60 24-ho|
|00002b80| 75 72 73 20 66 6f 72 6d | 61 74 20 22 25 30 32 64 |urs form|at "%02d|
|00002b90| 22 20 6d 69 6e 75 74 65 | 73 20 22 25 64 22 20 31 |" minute|s "%d" 1|
|00002ba0| 31 20 31 32 20 31 32 2d | 68 6f 75 72 73 20 22 70 |1 12 12-|hours "p|
|00002bb0| 6d 22 20 22 61 6d 22 20 | 61 6d 2d 70 6d 20 6d 61 |m" "am" |am-pm ma|
|00002bc0| 70 63 6f 6e 63 61 74 20 | 65 76 61 6c 20 63 61 6c |pconcat |eval cal|
|00002bd0| 65 6e 64 61 72 2d 74 69 | 6d 65 2d 64 69 73 70 6c |endar-ti|me-displ|
|00002be0| 61 79 2d 66 6f 72 6d 20 | 22 22 5d 20 35 20 22 5c |ay-form |""] 5 "\|
|00002bf0| 0a 50 72 69 6e 74 61 62 | 6c 65 20 66 6f 72 6d 20 |.Printab|le form |
|00002c00| 66 6f 72 20 64 65 63 69 | 6d 61 6c 20 66 72 61 63 |for deci|mal frac|
|00002c10| 74 69 6f 6e 20 54 49 4d | 45 20 6f 6e 20 44 41 54 |tion TIM|E on DAT|
|00002c20| 45 2e 0a 46 6f 72 6d 61 | 74 20 75 73 65 64 20 69 |E..Forma|t used i|
|00002c30| 73 20 67 69 76 65 6e 20 | 62 79 20 60 63 61 6c 65 |s given |by `cale|
|00002c40| 6e 64 61 72 2d 74 69 6d | 65 2d 64 69 73 70 6c 61 |ndar-tim|e-displa|
|00002c50| 79 2d 66 6f 72 6d 27 2e | 22 5d 29 0a 28 66 73 65 |y-form'.|"]).(fse|
|00002c60| 74 20 27 73 6f 6c 61 72 | 2d 73 75 6e 72 69 73 65 |t 'solar|-sunrise|
|00002c70| 2d 73 75 6e 73 65 74 20 | 23 5b 28 64 61 74 65 29 |-sunset |#[(date)|
|00002c80| 20 22 c0 09 21 89 1a ad | 84 c3 09 5c 6e 5c 22 1c | "..!...|...\n\".|
|00002c90| c5 09 21 89 1e 06 ad 85 | c3 09 0e 06 5c 22 1e 07 |..!.....|....\"..|
|00002ca0| c8 c9 5c 6e ab 90 ca 09 | 0c 40 5c 22 ab 89 cb cc |..\n....|.@\"....|
|00002cb0| cd 0c 41 5c 22 50 aa 81 | ce 0e 06 ab 92 ca 09 0e |..A\"P..|........|
|00002cc0| 07 40 5c 22 ab 8a cf cc | cd 0e 07 41 5c 22 50 aa |.@\"....|...A\"P.|
|00002cd0| 81 d0 d1 0e 12 21 24 2c | 87 22 20 5b 73 6f 6c 61 |.....!$,|." [sola|
|00002ce0| 72 2d 73 75 6e 72 69 73 | 65 20 64 61 74 65 20 72 |r-sunris|e date r|
|00002cf0| 69 73 65 20 73 6f 6c 61 | 72 2d 61 64 6a 2d 74 69 |ise sola|r-adj-ti|
|00002d00| 6d 65 2d 66 6f 72 2d 64 | 73 74 20 61 64 6a 2d 72 |me-for-d|st adj-r|
|00002d10| 69 73 65 20 73 6f 6c 61 | 72 2d 73 75 6e 73 65 74 |ise sola|r-sunset|
|00002d20| 20 73 65 74 20 61 64 6a | 2d 73 65 74 20 66 6f 72 | set adj|-set for|
|00002d30| 6d 61 74 20 22 25 73 2c | 20 25 73 20 61 74 20 25 |mat "%s,| %s at %|
|00002d40| 73 22 20 63 61 6c 65 6e | 64 61 72 2d 64 61 74 65 |s" calen|dar-date|
|00002d50| 2d 65 71 75 61 6c 20 22 | 53 75 6e 72 69 73 65 20 |-equal "|Sunrise |
|00002d60| 22 20 61 70 70 6c 79 20 | 73 6f 6c 61 72 2d 74 69 |" apply |solar-ti|
|00002d70| 6d 65 2d 73 74 72 69 6e | 67 20 22 4e 6f 20 73 75 |me-strin|g "No su|
|00002d80| 6e 72 69 73 65 22 20 22 | 73 75 6e 73 65 74 20 22 |nrise" "|sunset "|
|00002d90| 20 22 6e 6f 20 73 75 6e | 73 65 74 22 20 65 76 61 | "no sun|set" eva|
|00002da0| 6c 20 63 61 6c 65 6e 64 | 61 72 2d 6c 6f 63 61 74 |l calend|ar-locat|
|00002db0| 69 6f 6e 2d 6e 61 6d 65 | 5d 20 38 20 22 5c 0a 53 |ion-name|] 8 "\.S|
|00002dc0| 74 72 69 6e 67 20 67 69 | 76 69 6e 67 20 6c 6f 63 |tring gi|ving loc|
|00002dd0| 61 6c 20 74 69 6d 65 73 | 20 6f 66 20 73 75 6e 72 |al times| of sunr|
|00002de0| 69 73 65 20 61 6e 64 20 | 73 75 6e 73 65 74 20 6f |ise and |sunset o|
|00002df0| 6e 20 47 72 65 67 6f 72 | 69 61 6e 20 44 41 54 45 |n Gregor|ian DATE|
|00002e00| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 73 6f 6c 61 |."]).(fs|et 'sola|
|00002e10| 72 2d 61 70 70 61 72 65 | 6e 74 2d 6c 6f 6e 67 69 |r-appare|nt-longi|
|00002e20| 74 75 64 65 2d 6f 66 2d | 73 75 6e 20 23 5b 28 64 |tude-of-|sun #[(d|
|00002e30| 61 74 65 29 20 22 08 89 | 18 89 18 41 41 40 29 53 |ate) "..|...AA@)S|
|00002e40| 19 08 89 18 89 18 40 29 | 1a 08 89 18 41 40 29 1b |......@)|....A@).|
|00002e50| 08 89 18 41 41 40 29 1c | 0b 5c 6e 53 c5 5f 5c 5c |...AA@).|.\nS._\\|
|00002e60| 1e 06 5c 6e c7 56 ab aa | 0e 06 5c 6e c8 5f c9 5c |..\n.V..|..\n._.\|
|00002e70| 5c ca a5 5a 16 06 0c 89 | 1c c8 a6 cb 55 ad 8d 0c |\..Z....|....U...|
|00002e80| cc a6 cb 55 3f ae 85 0c | cd a6 cb 55 29 ab 85 0e |...U?...|...U)...|
|00002e90| 06 54 16 06 0e 06 2d 09 | ce 5f 09 c8 a5 09 cc a5 |.T....-.|._......|
|00002ea0| 5b 09 cd a5 5c 5c 5c 5c | 5c 5c 5c 5c 2a cf 18 cf |[...\\\\|\\\\*...|
|00002eb0| 89 18 41 41 40 29 53 19 | 08 89 18 89 18 40 29 1a |..AA@)S.|.....@).|
|00002ec0| 08 89 18 41 40 29 1b 08 | 89 18 41 41 40 29 1c 0b |...A@)..|..AA@)..|
|00002ed0| 5c 6e 53 c5 5f 5c 5c 1e | 06 5c 6e c7 56 ab aa 0e |\nS._\\.|.\n.V...|
|00002ee0| 06 5c 6e c8 5f c9 5c 5c | ca a5 5a 16 06 0c 89 1c |.\n._.\\|..Z.....|
|00002ef0| c8 a6 cb 55 ad 8d 0c cc | a6 cb 55 3f ae 85 0c cd |...U....|..U?....|
|00002f00| a6 cb 55 29 ab 85 0e 06 | 54 16 06 0e 06 2d 09 ce |..U)....|T....-..|
|00002f10| 5f 09 c8 a5 09 cc a5 5b | 09 cd a5 5c 5c 5c 5c 5c |_......[|...\\\\\|
|00002f20| 5c 5c 5c 2a 5a d0 a5 89 | 1e 11 d2 5f 0e 11 89 d3 |\\\*Z...|..._....|
|00002f30| 5f 5f d4 5c 5c 5c 5c 1e | 15 0e 11 d6 5f 0e 11 89 |__.\\\\.|...._...|
|00002f40| d7 5f 5f 0e 11 89 89 d8 | 5f 5f 5f d9 5c 5c 5c 5c |.__.....|___.\\\\|
|00002f50| 5c 5c 1e 1a 0e 11 db 5f | 0e 11 89 dc 5f 5f dd 5c |\\....._|....__.\|
|00002f60| 5c 5c 5c 0e 1a 1e 1e df | 0e 1e e0 5f 21 29 5f 0e |\\\.....|..._!)_.|
|00002f70| 11 e1 5f e2 5c 5c 0e 1a | 89 5c 5c 1e 1e df 0e 1e |.._.\\..|.\\.....|
|00002f80| e0 5f 21 29 5f 0e 1a e3 | 5f 1e 1e df 0e 1e e0 5f |._!)_...|_......_|
|00002f90| 21 29 e4 5f 5c 5c 5c 5c | 1e 25 0e 15 0e 25 5c 5c |!)._\\\\|.%...%\\|
|00002fa0| 1e 26 0e 11 e7 5f e8 5c | 5c 1e 29 0e 26 0e 29 1e |.&..._.\|\.).&.).|
|00002fb0| 1e df 0e 1e e0 5f 21 29 | ea 5f eb 5c 5c 5c 5c 2e |....._!)|._.\\\\.|
|00002fc0| 06 87 22 20 5b 64 61 74 | 65 20 70 72 69 6f 72 2d |.." [dat|e prior-|
|00002fd0| 79 65 61 72 73 20 6d 6f | 6e 74 68 20 64 61 79 20 |years mo|nth day |
|00002fe0| 79 65 61 72 20 33 31 20 | 64 61 79 2d 6f 66 2d 79 |year 31 |day-of-y|
|00002ff0| 65 61 72 20 32 20 34 20 | 32 33 20 31 30 20 30 20 |ear 2 4 |23 10 0 |
|00003000| 31 30 30 20 34 30 30 20 | 33 36 35 20 28 31 20 30 |100 400 |365 (1 0|
|00003010| 2e 35 20 31 39 30 30 29 | 20 33 36 35 32 35 20 74 |.5 1900)| 36525 t|
|00003020| 69 6d 65 20 33 36 30 30 | 30 2e 37 36 38 39 32 20 |ime 3600|0.76892 |
|00003030| 30 2e 30 30 30 33 30 32 | 35 20 32 37 39 2e 36 39 |0.000302|5 279.69|
|00003040| 36 36 38 20 6c 20 33 35 | 39 39 39 2e 30 34 39 37 |668 l 35|999.0497|
|00003050| 35 20 2d 30 2e 30 30 30 | 31 35 20 2d 33 2e 33 65 |5 -0.000|15 -3.3e|
|00003060| 2d 30 36 20 33 35 38 2e | 34 37 35 38 33 20 6d 20 |-06 358.|47583 m |
|00003070| 2d 30 2e 30 30 34 37 38 | 39 20 2d 31 2e 34 65 2d |-0.00478|9 -1.4e-|
|00003080| 30 35 20 31 2e 39 31 39 | 34 36 20 78 20 73 69 6e |05 1.919|46 x sin|
|00003090| 20 30 2e 30 31 37 34 35 | 33 32 39 32 35 31 39 39 | 0.01745|32925199|
|000030a0| 34 33 33 20 2d 30 2e 30 | 30 30 31 20 30 2e 30 32 |433 -0.0|001 0.02|
|000030b0| 30 30 39 34 20 33 20 30 | 2e 30 30 30 32 39 33 20 |0094 3 0|.000293 |
|000030c0| 63 20 4c 20 2d 31 39 33 | 34 2e 31 34 32 20 32 35 |c L -193|4.142 25|
|000030d0| 39 2e 31 38 20 6f 6d 65 | 67 61 20 2d 30 2e 30 30 |9.18 ome|ga -0.00|
|000030e0| 34 37 39 20 2d 30 2e 30 | 30 35 36 39 5d 20 39 20 |479 -0.0|0569] 9 |
|000030f0| 22 5c 0a 41 70 70 61 72 | 65 6e 74 20 6c 6f 6e 67 |"\.Appar|ent long|
|00003100| 69 74 75 64 65 20 6f 66 | 20 74 68 65 20 73 75 6e |itude of| the sun|
|00003110| 20 6f 6e 20 47 72 65 67 | 6f 72 69 61 6e 20 44 41 | on Greg|orian DA|
|00003120| 54 45 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 73 6f |TE."]).(|fset 'so|
|00003130| 6c 61 72 2d 65 70 68 65 | 6d 65 72 69 73 2d 63 6f |lar-ephe|meris-co|
|00003140| 72 72 65 63 74 69 6f 6e | 20 23 5b 28 79 65 61 72 |rrection| #[(year|
|00003150| 29 20 22 08 c1 5a c2 a5 | 89 1b c4 5f 0b 89 c5 5f |) "..Z..|..._..._|
|00003160| 5f c6 5c 5c 5c 5c 29 87 | 22 20 5b 79 65 61 72 20 |_.\\\\).|" [year |
|00003170| 31 39 30 30 20 31 30 30 | 2e 30 20 54 20 31 2e 32 |1900 100|.0 T 1.2|
|00003180| 30 35 33 20 30 2e 34 39 | 39 32 20 30 2e 34 31 5d |053 0.49|92 0.41]|
|00003190| 20 35 20 22 5c 0a 44 69 | 66 66 65 72 65 6e 63 65 | 5 "\.Di|fference|
|000031a0| 20 69 6e 20 6d 69 6e 75 | 74 65 73 20 62 65 74 77 | in minu|tes betw|
|000031b0| 65 65 6e 20 45 70 68 65 | 6d 65 72 69 73 20 74 69 |een Ephe|meris ti|
|000031c0| 6d 65 20 61 6e 64 20 55 | 54 43 20 69 6e 20 59 45 |me and U|TC in YE|
|000031d0| 41 52 2e 0a 56 61 6c 75 | 65 20 69 73 20 6f 6e 6c |AR..Valu|e is onl|
|000031e0| 79 20 61 6e 20 61 70 70 | 72 6f 78 69 6d 61 74 69 |y an app|roximati|
|000031f0| 6f 6e 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 73 6f |on."]).(|fset 'so|
|00003200| 6c 61 72 2d 65 71 75 69 | 6e 6f 78 65 73 2f 73 6f |lar-equi|noxes/so|
|00003210| 6c 73 74 69 63 65 73 20 | 23 5b 28 6b 20 79 65 61 |lstices |#[(k yea|
|00003220| 72 29 20 22 08 c1 5f c1 | 5c 5c c2 0b 45 c4 c5 1e |r) ".._.|\\..E...|
|00003230| 06 1e 07 1e 08 0e 06 c9 | 56 ab b4 ca cb 0e 08 21 |........|V......!|
|00003240| cc 5c 22 16 07 08 cd 5f | 0e 07 5a 1e 0e cf 0e 0e |.\"...._|..Z.....|
|00003250| d0 5f 21 29 d1 5f 16 06 | 0e 08 89 1e 08 40 29 0e |._!)._..|.....@).|
|00003260| 08 89 1e 08 41 40 29 0e | 06 5c 5c 0b 45 16 08 aa |....A@).|.\\.E...|
|00003270| 46 0e 08 89 1e 08 40 29 | 0e 08 89 1e 08 41 40 29 |F.....@)|.....A@)|
|00003280| 0e 12 d3 a5 d4 0b 21 d5 | a5 5b 5c 5c 5c 5c 0b 45 |......!.|.[\\\\.E|
|00003290| 2b 87 22 20 5b 6b 20 33 | 20 32 31 20 79 65 61 72 |+." [k 3| 21 year|
|000032a0| 20 6e 69 6c 20 31 30 30 | 30 20 63 6f 72 72 65 63 | nil 100|0 correc|
|000032b0| 74 69 6f 6e 20 61 70 70 | 20 64 61 74 65 20 31 65 |tion app| date 1e|
|000032c0| 2d 30 35 20 6d 6f 64 20 | 73 6f 6c 61 72 2d 61 70 |-05 mod |solar-ap|
|000032d0| 70 61 72 65 6e 74 2d 6c | 6f 6e 67 69 74 75 64 65 |parent-l|ongitude|
|000032e0| 2d 6f 66 2d 73 75 6e 20 | 33 36 30 20 39 30 20 78 |-of-sun |360 90 x|
|000032f0| 20 73 69 6e 20 30 2e 30 | 31 37 34 35 33 32 39 32 | sin 0.0|17453292|
|00003300| 35 31 39 39 34 33 33 20 | 35 38 20 63 61 6c 65 6e |5199433 |58 calen|
|00003310| 64 61 72 2d 74 69 6d 65 | 2d 7a 6f 6e 65 20 31 34 |dar-time|-zone 14|
|00003320| 34 30 2e 30 20 73 6f 6c | 61 72 2d 65 70 68 65 6d |40.0 sol|ar-ephem|
|00003330| 65 72 69 73 2d 63 6f 72 | 72 65 63 74 69 6f 6e 20 |eris-cor|rection |
|00003340| 31 34 34 30 2e 30 5d 20 | 36 20 22 5c 0a 44 61 74 |1440.0] |6 "\.Dat|
|00003350| 65 20 6f 66 20 65 71 75 | 69 6e 6f 78 2f 73 6f 6c |e of equ|inox/sol|
|00003360| 73 74 69 63 65 20 4b 20 | 66 6f 72 20 59 45 41 52 |stice K |for YEAR|
|00003370| 2e 20 20 4b 3d 30 2c 20 | 73 70 72 69 6e 67 20 65 |.  K=0, |spring e|
|00003380| 71 75 69 6e 6f 78 3b 20 | 4b 3d 31 2c 20 73 75 6d |quinox; |K=1, sum|
|00003390| 6d 65 72 0a 73 6f 6c 73 | 74 69 63 65 3b 20 4b 3d |mer.sols|tice; K=|
|000033a0| 32 2c 20 66 61 6c 6c 20 | 65 71 75 69 6e 6f 78 3b |2, fall |equinox;|
|000033b0| 20 4b 3d 33 2c 20 77 69 | 6e 74 65 72 20 73 6f 6c | K=3, wi|nter sol|
|000033c0| 73 74 69 63 65 2e 20 20 | 41 63 63 75 72 61 74 65 |stice.  |Accurate|
|000033d0| 20 74 6f 20 77 69 74 68 | 69 6e 0a 73 65 76 65 72 | to with|in.sever|
|000033e0| 61 6c 20 6d 69 6e 75 74 | 65 73 2e 22 5d 29 0a 28 |al minut|es."]).(|
|000033f0| 66 73 65 74 20 27 73 75 | 6e 72 69 73 65 2d 73 75 |fset 'su|nrise-su|
|00003400| 6e 73 65 74 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |nset #[(|&optiona|
|00003410| 6c 20 61 72 67 29 20 22 | 08 ac 82 c1 10 08 c2 57 |l arg) "|.......W|
|00003420| ab 8c 0b ab 86 0c ab 83 | 0d ac 83 c6 20 88 08 c2 |........|.... ...|
|00003430| 57 ab 83 0c aa 83 c7 c8 | 21 1c 08 c2 57 ab 83 0b |W.......|!...W...|
|00003440| aa 83 c7 c9 21 1b 08 c2 | 57 ab 83 0d aa 83 c7 ca |....!...|W.......|
|00003450| 21 1d 08 c2 57 ab 84 0e | 0b aa df cc 1e 0d ce cf |!...W...|........|
|00003460| 0b a7 ab 85 d0 0b 21 aa | 89 0b d1 48 0b c1 48 d2 |......!.|...H..H.|
|00003470| a5 5c 5c 0b a7 ab 8b 0b | d1 56 ab 83 d3 aa 8e d4 |.\\.....|.V......|
|00003480| aa 8b 0b d5 48 d6 9a ab | 83 d3 aa 81 d4 0c a7 ab |....H...|........|
|00003490| 85 d0 0c 21 aa 89 0c d1 | 48 0c c1 48 d7 a5 5c 5c |...!....|H..H..\\|
|000034a0| 0c a7 ab 8b 0c d1 56 ab | 83 d8 aa 8e d9 aa 8b 0b |......V.|........|
|000034b0| d5 48 da 9a ab 83 d8 aa | 81 d9 25 29 1e 0b 08 c2 |.H......|..%)....|
|000034c0| 57 ab 84 0e 1b aa 97 0d | d1 55 ab 83 dc aa 8f 0d |W.......|.U......|
|000034d0| d1 57 ab 86 ce dd 0d 5c | 22 aa 84 ce de 0d 5c 22 |.W.....\|".....\"|
|000034e0| 1e 1b 08 c2 57 ad 82 0e | 1f 1e 1f 08 c2 57 ad 82 |....W...|.....W..|
|000034f0| 0e 20 1e 20 08 e1 57 ab | 84 e2 20 aa 82 e3 20 1e |. . ..W.|.. ... .|
|00003500| 24 e5 0e 24 e6 5c 22 1e | 27 e8 0e 24 21 1e 29 ce |$..$.\".|'..$!.).|
|00003510| ea 0e 27 0e 29 23 1e 2b | ec e6 21 1e 2d 0e 2b 47 |..'.)#.+|..!.-.+G|
|00003520| ee 20 58 ab 86 ef 0e 2b | 21 aa 9f f0 90 f1 0e 27 |. X....+|!......'|
|00003530| f2 0e 29 51 21 91 88 ef | f3 0e 2d ab 8a 0e 34 ab |..)Q!...|..-...4.|
|00003540| 83 f5 aa 84 f6 aa 81 f7 | 21 21 2e 0c 87 22 20 5b |........|!!..." [|
|00003550| 61 72 67 20 31 20 31 36 | 20 63 61 6c 65 6e 64 61 |arg 1 16| calenda|
|00003560| 72 2d 6c 61 74 69 74 75 | 64 65 20 63 61 6c 65 6e |r-latitu|de calen|
|00003570| 64 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 20 63 61 |dar-long|itude ca|
|00003580| 6c 65 6e 64 61 72 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |lendar-t|ime-zone|
|00003590| 20 73 6f 6c 61 72 2d 73 | 65 74 75 70 20 73 6f 6c | solar-s|etup sol|
|000035a0| 61 72 2d 67 65 74 2d 6e | 75 6d 62 65 72 20 22 45 |ar-get-n|umber "E|
|000035b0| 6e 74 65 72 20 6c 6f 6e | 67 69 74 75 64 65 20 28 |nter lon|gitude (|
|000035c0| 64 65 63 69 6d 61 6c 20 | 66 72 61 63 74 69 6f 6e |decimal |fraction|
|000035d0| 3b 20 2b 20 65 61 73 74 | 2c 20 2d 20 77 65 73 74 |; + east|, - west|
|000035e0| 29 3a 20 22 20 22 45 6e | 74 65 72 20 6c 61 74 69 |): " "En|ter lati|
|000035f0| 74 75 64 65 20 28 64 65 | 63 69 6d 61 6c 20 66 72 |tude (de|cimal fr|
|00003600| 61 63 74 69 6f 6e 3b 20 | 2b 20 6e 6f 72 74 68 2c |action; |+ north,|
|00003610| 20 2d 20 73 6f 75 74 68 | 29 3a 20 22 20 22 45 6e | - south|): " "En|
|00003620| 74 65 72 20 64 69 66 66 | 65 72 65 6e 63 65 20 66 |ter diff|erence f|
|00003630| 72 6f 6d 20 43 6f 6f 72 | 64 69 6e 61 74 65 64 20 |rom Coor|dinated |
|00003640| 55 6e 69 76 65 72 73 61 | 6c 20 54 69 6d 65 20 28 |Universa|l Time (|
|00003650| 69 6e 20 6d 69 6e 75 74 | 65 73 29 3a 20 22 20 63 |in minut|es): " c|
|00003660| 61 6c 65 6e 64 61 72 2d | 6c 6f 63 61 74 69 6f 6e |alendar-|location|
|00003670| 2d 6e 61 6d 65 20 22 25 | 2e 31 66 22 20 66 6c 6f |-name "%|.1f" flo|
|00003680| 61 74 2d 6f 75 74 70 75 | 74 2d 66 6f 72 6d 61 74 |at-outpu|t-format|
|00003690| 20 66 6f 72 6d 61 74 20 | 22 25 73 25 73 2c 20 25 | format |"%s%s, %|
|000036a0| 73 25 73 22 20 61 62 73 | 20 30 20 36 30 2e 30 20 |s%s" abs| 0 60.0 |
|000036b0| 22 4e 22 20 22 53 22 20 | 32 20 6e 6f 72 74 68 20 |"N" "S" |2 north |
|000036c0| 36 30 2e 30 20 22 45 22 | 20 22 57 22 20 65 61 73 |60.0 "E"| "W" eas|
|000036d0| 74 20 63 61 6c 65 6e 64 | 61 72 2d 73 74 61 6e 64 |t calend|ar-stand|
|000036e0| 61 72 64 2d 74 69 6d 65 | 2d 7a 6f 6e 65 2d 6e 61 |ard-time|-zone-na|
|000036f0| 6d 65 20 22 55 54 43 22 | 20 22 55 54 43 25 64 6d |me "UTC"| "UTC%dm|
|00003700| 69 6e 22 20 22 55 54 43 | 2b 25 64 6d 69 6e 22 20 |in" "UTC|+%dmin" |
|00003710| 63 61 6c 65 6e 64 61 72 | 2d 64 61 79 6c 69 67 68 |calendar|-dayligh|
|00003720| 74 2d 73 61 76 69 6e 67 | 73 2d 73 74 61 72 74 73 |t-saving|s-starts|
|00003730| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 79 6c 69 67 | calenda|r-daylig|
|00003740| 68 74 2d 73 61 76 69 6e | 67 73 2d 65 6e 64 73 20 |ht-savin|gs-ends |
|00003750| 34 20 63 61 6c 65 6e 64 | 61 72 2d 63 75 72 72 65 |4 calend|ar-curre|
|00003760| 6e 74 2d 64 61 74 65 20 | 63 61 6c 65 6e 64 61 72 |nt-date |calendar|
|00003770| 2d 72 65 61 64 2d 64 61 | 74 65 20 64 61 74 65 20 |-read-da|te date |
|00003780| 63 61 6c 65 6e 64 61 72 | 2d 64 61 74 65 2d 73 74 |calendar|-date-st|
|00003790| 72 69 6e 67 20 74 20 64 | 61 74 65 2d 73 74 72 69 |ring t d|ate-stri|
|000037a0| 6e 67 20 73 6f 6c 61 72 | 2d 73 75 6e 72 69 73 65 |ng solar|-sunrise|
|000037b0| 2d 73 75 6e 73 65 74 20 | 74 69 6d 65 2d 73 74 72 |-sunset |time-str|
|000037c0| 69 6e 67 20 22 25 73 3a | 20 25 73 22 20 6d 73 67 |ing "%s:| %s" msg|
|000037d0| 20 6f 6e 65 2d 77 69 6e | 64 6f 77 2d 70 20 6f 6e | one-win|dow-p on|
|000037e0| 65 2d 77 69 6e 64 6f 77 | 20 66 72 61 6d 65 2d 77 |e-window| frame-w|
|000037f0| 69 64 74 68 20 6d 65 73 | 73 61 67 65 20 22 2a 74 |idth mes|sage "*t|
|00003800| 65 6d 70 2a 22 20 70 72 | 69 6e 63 20 22 5c 6e 22 |emp*" pr|inc "\n"|
|00003810| 20 73 75 62 73 74 69 74 | 75 74 65 2d 63 6f 6d 6d | substit|ute-comm|
|00003820| 61 6e 64 2d 6b 65 79 73 | 20 70 6f 70 2d 75 70 2d |and-keys| pop-up-|
|00003830| 77 69 6e 64 6f 77 73 20 | 22 54 79 70 65 20 5c 5c |windows |"Type \\|
|00003840| 5b 64 65 6c 65 74 65 2d | 6f 74 68 65 72 2d 77 69 |[delete-|other-wi|
|00003850| 6e 64 6f 77 73 5d 20 74 | 6f 20 72 65 6d 6f 76 65 |ndows] t|o remove|
|00003860| 20 74 65 6d 70 20 77 69 | 6e 64 6f 77 2e 22 20 22 | temp wi|ndow." "|
|00003870| 54 79 70 65 20 5c 5c 5b | 73 77 69 74 63 68 2d 74 |Type \\[|switch-t|
|00003880| 6f 2d 62 75 66 66 65 72 | 5d 20 52 45 54 20 74 6f |o-buffer|] RET to|
|00003890| 20 72 65 6d 6f 76 65 20 | 74 65 6d 70 20 77 69 6e | remove |temp win|
|000038a0| 64 6f 77 2e 22 20 22 54 | 79 70 65 20 5c 5c 5b 73 |dow." "T|ype \\[s|
|000038b0| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 2d |witch-to|-buffer-|
|000038c0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 5d 20 52 45 |other-wi|ndow] RE|
|000038d0| 54 20 74 6f 20 72 65 73 | 74 6f 72 65 20 6f 6c 64 |T to res|tore old|
|000038e0| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 74 65 6d | content|s of tem|
|000038f0| 70 20 77 69 6e 64 6f 77 | 2e 22 5d 20 37 20 22 5c |p window|."] 7 "\|
|00003900| 0a 4c 6f 63 61 6c 20 74 | 69 6d 65 20 6f 66 20 73 |.Local t|ime of s|
|00003910| 75 6e 72 69 73 65 20 61 | 6e 64 20 73 75 6e 73 65 |unrise a|nd sunse|
|00003920| 74 20 66 6f 72 20 74 6f | 64 61 79 2e 20 20 41 63 |t for to|day.  Ac|
|00003930| 63 75 72 61 74 65 20 74 | 6f 20 2b 2f 2d 20 32 20 |curate t|o +/- 2 |
|00003940| 6d 69 6e 75 74 65 73 2e | 0a 49 66 20 63 61 6c 6c |minutes.|.If call|
|00003950| 65 64 20 77 69 74 68 20 | 61 6e 20 6f 70 74 69 6f |ed with |an optio|
|00003960| 6e 61 6c 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |nal pref|ix argum|
|00003970| 65 6e 74 2c 20 70 72 6f | 6d 70 74 20 66 6f 72 20 |ent, pro|mpt for |
|00003980| 64 61 74 65 2e 0a 0a 49 | 66 20 63 61 6c 6c 65 64 |date...I|f called|
|00003990| 20 77 69 74 68 20 61 6e | 20 6f 70 74 69 6f 6e 61 | with an| optiona|
|000039a0| 6c 20 64 6f 75 62 6c 65 | 20 70 72 65 66 69 78 20 |l double| prefix |
|000039b0| 61 72 67 75 6d 65 6e 74 | 2c 20 70 72 6f 6d 70 74 |argument|, prompt|
|000039c0| 20 66 6f 72 20 6c 6f 6e | 67 69 74 75 64 65 2c 0a | for lon|gitude,.|
|000039d0| 6c 61 74 69 74 75 64 65 | 2c 20 74 69 6d 65 20 7a |latitude|, time z|
|000039e0| 6f 6e 65 2c 20 61 6e 64 | 20 64 61 74 65 2c 20 61 |one, and| date, a|
|000039f0| 6e 64 20 61 6c 77 61 79 | 73 20 75 73 65 20 73 74 |nd alway|s use st|
|00003a00| 61 6e 64 61 72 64 20 74 | 69 6d 65 2e 0a 0a 54 68 |andard t|ime...Th|
|00003a10| 69 73 20 66 75 6e 63 74 | 69 6f 6e 20 69 73 20 73 |is funct|ion is s|
|00003a20| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 65 78 65 63 |uitable |for exec|
|00003a30| 75 74 69 6f 6e 20 69 6e | 20 61 20 2e 65 6d 61 63 |ution in| a .emac|
|00003a40| 73 20 66 69 6c 65 2e 22 | 20 22 70 22 5d 29 0a 28 |s file."| "p"]).(|
|00003a50| 66 73 65 74 20 27 63 61 | 6c 65 6e 64 61 72 2d 73 |fset 'ca|lendar-s|
|00003a60| 75 6e 72 69 73 65 2d 73 | 75 6e 73 65 74 20 23 5b |unrise-s|unset #[|
|00003a70| 6e 69 6c 20 22 08 ab 86 | 09 ab 83 5c 6e ac 83 c3 |nil "...|...\n...|
|00003a80| 20 88 c4 c5 21 1e 06 c7 | c8 c9 0e 06 c5 89 23 ca | ...!...|......#.|
|00003a90| 0e 06 21 23 29 87 22 20 | 5b 63 61 6c 65 6e 64 61 |..!#)." |[calenda|
|00003aa0| 72 2d 6c 61 74 69 74 75 | 64 65 20 63 61 6c 65 6e |r-latitu|de calen|
|00003ab0| 64 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 20 63 61 |dar-long|itude ca|
|00003ac0| 6c 65 6e 64 61 72 2d 74 | 69 6d 65 2d 7a 6f 6e 65 |lendar-t|ime-zone|
|00003ad0| 20 73 6f 6c 61 72 2d 73 | 65 74 75 70 20 63 61 6c | solar-s|etup cal|
|00003ae0| 65 6e 64 61 72 2d 63 75 | 72 73 6f 72 2d 74 6f 2d |endar-cu|rsor-to-|
|00003af0| 64 61 74 65 20 74 20 64 | 61 74 65 20 6d 65 73 73 |date t d|ate mess|
|00003b00| 61 67 65 20 22 25 73 3a | 20 25 73 22 20 63 61 6c |age "%s:| %s" cal|
|00003b10| 65 6e 64 61 72 2d 64 61 | 74 65 2d 73 74 72 69 6e |endar-da|te-strin|
|00003b20| 67 20 73 6f 6c 61 72 2d | 73 75 6e 72 69 73 65 2d |g solar-|sunrise-|
|00003b30| 73 75 6e 73 65 74 5d 20 | 36 20 22 5c 0a 4c 6f 63 |sunset] |6 "\.Loc|
|00003b40| 61 6c 20 74 69 6d 65 20 | 6f 66 20 73 75 6e 72 69 |al time |of sunri|
|00003b50| 73 65 20 61 6e 64 20 73 | 75 6e 73 65 74 20 66 6f |se and s|unset fo|
|00003b60| 72 20 64 61 74 65 20 75 | 6e 64 65 72 20 63 75 72 |r date u|nder cur|
|00003b70| 73 6f 72 2e 0a 41 63 63 | 75 72 61 74 65 20 74 6f |sor..Acc|urate to|
|00003b80| 20 2b 2f 2d 20 32 20 6d | 69 6e 75 74 65 73 2e 22 | +/- 2 m|inutes."|
|00003b90| 20 6e 69 6c 5d 29 0a 28 | 66 73 65 74 20 27 64 69 | nil]).(|fset 'di|
|00003ba0| 61 72 79 2d 73 75 6e 72 | 69 73 65 2d 73 75 6e 73 |ary-sunr|ise-suns|
|00003bb0| 65 74 20 23 5b 6e 69 6c | 20 22 08 ab 86 09 ab 83 |et #[nil| "......|
|00003bc0| 5c 6e ac 83 c3 20 88 c4 | 0d 21 87 22 20 5b 63 61 |\n... ..|.!." [ca|
|00003bd0| 6c 65 6e 64 61 72 2d 6c | 61 74 69 74 75 64 65 20 |lendar-l|atitude |
|00003be0| 63 61 6c 65 6e 64 61 72 | 2d 6c 6f 6e 67 69 74 75 |calendar|-longitu|
|00003bf0| 64 65 20 63 61 6c 65 6e | 64 61 72 2d 74 69 6d 65 |de calen|dar-time|
|00003c00| 2d 7a 6f 6e 65 20 73 6f | 6c 61 72 2d 73 65 74 75 |-zone so|lar-setu|
|00003c10| 70 20 73 6f 6c 61 72 2d | 73 75 6e 72 69 73 65 2d |p solar-|sunrise-|
|00003c20| 73 75 6e 73 65 74 20 64 | 61 74 65 5d 20 32 20 22 |sunset d|ate] 2 "|
|00003c30| 5c 0a 4c 6f 63 61 6c 20 | 74 69 6d 65 20 6f 66 20 |\.Local |time of |
|00003c40| 73 75 6e 72 69 73 65 20 | 61 6e 64 20 73 75 6e 73 |sunrise |and suns|
|00003c50| 65 74 20 61 73 20 61 20 | 64 69 61 72 79 20 65 6e |et as a |diary en|
|00003c60| 74 72 79 2e 0a 41 63 63 | 75 72 61 74 65 20 74 6f |try..Acc|urate to|
|00003c70| 20 2b 2f 2d 20 32 20 6d | 69 6e 75 74 65 73 2e 22 | +/- 2 m|inutes."|
|00003c80| 5d 29 0a 28 66 73 65 74 | 20 27 64 69 61 72 79 2d |]).(fset| 'diary-|
|00003c90| 73 61 62 62 61 74 68 2d | 63 61 6e 64 6c 65 73 20 |sabbath-|candles |
|00003ca0| 23 5b 6e 69 6c 20 22 08 | ab 86 09 ab 83 5c 6e ac |#[nil ".|.....\n.|
|00003cb0| 83 c3 20 88 0c 89 1c 89 | 1c 41 41 40 29 53 1d 0c |.. .....|.AA@)S..|
|00003cc0| 89 1c 89 1c 40 29 1e 06 | 0c 89 1c 41 40 29 1e 07 |....@)..|...A@)..|
|00003cd0| 0c 89 1c 41 41 40 29 1e | 08 0e 07 0e 06 53 c9 5f |...AA@).|.....S._|
|00003ce0| 5c 5c 1e 5c 6e 0e 06 cb | 56 ab af 0e 5c 6e 0e 06 |\\.\n...|V...\n..|
|00003cf0| cc 5f cd 5c 5c ce a5 5a | 16 5c 6e 0e 08 89 1e 08 |._.\\..Z|.\n.....|
|00003d00| cc a6 cf 55 ad 8f 0e 08 | d0 a6 cf 55 3f ae 86 0e |...U....|...U?...|
|00003d10| 08 d1 a6 cf 55 29 ab 85 | 0e 5c 6e 54 16 5c 6e 0e |....U)..|.\nT.\n.|
|00003d20| 5c 6e 2d 0d d2 5f 0d cc | a5 0d d0 a5 5b 0d d1 a5 |\n-.._..|....[...|
|00003d30| 5c 5c 5c 5c 5c 5c 5c 5c | 2a d3 a6 d4 55 ad a6 d5 |\\\\\\\\|*...U...|
|00003d40| 0c 21 89 1e 16 ad 87 d7 | 0c 0e 16 d8 5a 5c 22 89 |.!......|....Z\".|
|00003d50| 1e 19 ad 91 da 0c 0e 19 | 40 5c 22 ad 89 db dc dd |........|@\".....|
|00003d60| de 0e 19 41 5c 22 5c 22 | 2a 87 22 20 5b 63 61 6c |...A\"\"|*." [cal|
|00003d70| 65 6e 64 61 72 2d 6c 61 | 74 69 74 75 64 65 20 63 |endar-la|titude c|
|00003d80| 61 6c 65 6e 64 61 72 2d | 6c 6f 6e 67 69 74 75 64 |alendar-|longitud|
|00003d90| 65 20 63 61 6c 65 6e 64 | 61 72 2d 74 69 6d 65 2d |e calend|ar-time-|
|00003da0| 7a 6f 6e 65 20 73 6f 6c | 61 72 2d 73 65 74 75 70 |zone sol|ar-setup|
|00003db0| 20 64 61 74 65 20 70 72 | 69 6f 72 2d 79 65 61 72 | date pr|ior-year|
|00003dc0| 73 20 6d 6f 6e 74 68 20 | 64 61 79 20 79 65 61 72 |s month |day year|
|00003dd0| 20 33 31 20 64 61 79 2d | 6f 66 2d 79 65 61 72 20 | 31 day-|of-year |
|00003de0| 32 20 34 20 32 33 20 31 | 30 20 30 20 31 30 30 20 |2 4 23 1|0 0 100 |
|00003df0| 34 30 30 20 33 36 35 20 | 37 20 35 20 73 6f 6c 61 |400 365 |7 5 sola|
|00003e00| 72 2d 73 75 6e 73 65 74 | 20 73 75 6e 73 65 74 20 |r-sunset| sunset |
|00003e10| 73 6f 6c 61 72 2d 61 64 | 6a 2d 74 69 6d 65 2d 66 |solar-ad|j-time-f|
|00003e20| 6f 72 2d 64 73 74 20 30 | 2e 33 20 6c 69 67 68 74 |or-dst 0|.3 light|
|00003e30| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 65 | calenda|r-date-e|
|00003e40| 71 75 61 6c 20 66 6f 72 | 6d 61 74 20 22 25 73 20 |qual for|mat "%s |
|00003e50| 53 61 62 62 61 74 68 20 | 63 61 6e 64 6c 65 20 6c |Sabbath |candle l|
|00003e60| 69 67 68 74 69 6e 67 22 | 20 61 70 70 6c 79 20 73 |ighting"| apply s|
|00003e70| 6f 6c 61 72 2d 74 69 6d | 65 2d 73 74 72 69 6e 67 |olar-tim|e-string|
|00003e80| 5d 20 38 20 22 5c 0a 4c | 6f 63 61 6c 20 74 69 6d |] 8 "\.L|ocal tim|
|00003e90| 65 20 6f 66 20 63 61 6e | 64 6c 65 20 6c 69 67 68 |e of can|dle ligh|
|00003ea0| 74 69 6e 67 20 64 69 61 | 72 79 20 65 6e 74 72 79 |ting dia|ry entry|
|00003eb0| 2d 2d 61 70 70 6c 69 65 | 73 20 69 66 20 64 61 74 |--applie|s if dat|
|00003ec0| 65 20 69 73 20 61 20 46 | 72 69 64 61 79 2e 0a 4e |e is a F|riday..N|
|00003ed0| 6f 20 64 69 61 72 79 20 | 65 6e 74 72 79 20 69 66 |o diary |entry if|
|00003ee0| 20 74 68 65 72 65 20 69 | 73 20 6e 6f 20 73 75 6e | there i|s no sun|
|00003ef0| 73 65 74 20 6f 6e 20 74 | 68 61 74 20 64 61 74 65 |set on t|hat date|
|00003f00| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 73 6f 6c 61 |."]).(fs|et 'sola|
|00003f10| 72 2d 65 71 75 69 6e 6f | 78 65 73 2d 73 6f 6c 73 |r-equino|xes-sols|
|00003f20| 74 69 63 65 73 20 23 5b | 6e 69 6c 20 22 08 09 1a |tices #[|nil "...|
|00003f30| 1b 5c 6e c4 5f 0b 89 c5 | a6 c6 55 ab 83 c7 aa 8b |.\n._...|..U.....|
|00003f40| 0b c5 a6 c8 55 ab 83 c6 | aa 81 c9 c7 5c 5c 5c 5c |....U...|....\\\\|
|00003f50| 5c 5c 89 1e 5c 6e c4 a6 | 54 13 0e 5c 6e c4 a5 12 |\\..\n..|T..\n...|
|00003f60| 29 0e 0b ab 84 0e 0c aa | 81 cd 1e 0c 0e 0b ad 82 |).......|........|
|00003f70| 0e 0e 1e 0e 0e 0b ad 82 | 0e 0f 1e 0f 0e 0b ab 84 |........|........|
|00003f80| 0e 0b aa 81 c9 1e 0b 0b | c5 a5 53 1e 10 d1 0e 10 |........|..S.....|
|00003f90| 5c 6e 5c 22 1e 12 0e 13 | ad a8 0e 13 a7 ab 84 0e |\n\"....|........|
|00003fa0| 13 aa 9d 0e 13 c9 48 0e | 13 c6 48 d4 a5 5c 5c 1e |......H.|..H..\\.|
|00003fb0| 15 0e 13 c8 48 d6 9a ab | 84 0e 15 aa 83 0e 15 5b |....H...|.......[|
|00003fc0| 29 c9 57 1e 17 0e 12 89 | 1e 12 41 40 29 1e 18 d9 |).W.....|..A@)...|
|00003fd0| 0e 12 89 1e 12 40 29 da | 0e 18 21 0e 12 89 1e 12 |.....@).|..!.....|
|00003fe0| 41 41 40 29 45 0e 18 da | 0e 18 21 5a db 5f 5c 22 |AA@)E...|..!Z._\"|
|00003ff0| 89 1e 1c 40 dd de 0e 10 | 0e 17 ab 84 0e 1f aa 82 |...@....|........|
|00004000| 0e 20 38 e1 e2 0e 1c 41 | 5c 22 23 2e 0b 44 43 87 |. 8....A|\"#..DC.|
|00004010| 22 20 5b 64 69 73 70 6c | 61 79 65 64 2d 6d 6f 6e |" [displ|ayed-mon|
|00004020| 74 68 20 64 69 73 70 6c | 61 79 65 64 2d 79 65 61 |th displ|ayed-yea|
|00004030| 72 20 79 20 6d 20 31 32 | 20 33 20 31 20 2d 31 20 |r y m 12| 3 1 -1 |
|00004040| 32 20 30 20 6d 61 63 72 | 6f 2d 79 20 63 61 6c 65 |2 0 macr|o-y cale|
|00004050| 6e 64 61 72 2d 74 69 6d | 65 2d 7a 6f 6e 65 20 63 |ndar-tim|e-zone c|
|00004060| 61 6c 65 6e 64 61 72 2d | 73 74 61 6e 64 61 72 64 |alendar-|standard|
|00004070| 2d 74 69 6d 65 2d 7a 6f | 6e 65 2d 6e 61 6d 65 20 |-time-zo|ne-name |
|00004080| 22 55 54 43 22 20 63 61 | 6c 65 6e 64 61 72 2d 64 |"UTC" ca|lendar-d|
|00004090| 61 79 6c 69 67 68 74 2d | 73 61 76 69 6e 67 73 2d |aylight-|savings-|
|000040a0| 73 74 61 72 74 73 20 63 | 61 6c 65 6e 64 61 72 2d |starts c|alendar-|
|000040b0| 64 61 79 6c 69 67 68 74 | 2d 73 61 76 69 6e 67 73 |daylight|-savings|
|000040c0| 2d 65 6e 64 73 20 6b 20 | 73 6f 6c 61 72 2d 65 71 |-ends k |solar-eq|
|000040d0| 75 69 6e 6f 78 65 73 2f | 73 6f 6c 73 74 69 63 65 |uinoxes/|solstice|
|000040e0| 73 20 64 61 74 65 20 63 | 61 6c 65 6e 64 61 72 2d |s date c|alendar-|
|000040f0| 6c 61 74 69 74 75 64 65 | 20 36 30 2e 30 20 6c 61 |latitude| 60.0 la|
|00004100| 74 20 6e 6f 72 74 68 20 | 73 2d 68 65 6d 69 20 64 |t north |s-hemi d|
|00004110| 61 79 20 73 6f 6c 61 72 | 2d 61 64 6a 2d 74 69 6d |ay solar|-adj-tim|
|00004120| 65 2d 66 6f 72 2d 64 73 | 74 20 74 72 75 6e 63 61 |e-for-ds|t trunca|
|00004130| 74 65 20 32 34 20 61 64 | 6a 20 66 6f 72 6d 61 74 |te 24 ad|j format|
|00004140| 20 22 25 73 20 25 73 22 | 20 73 6f 6c 61 72 2d 73 | "%s %s"| solar-s|
|00004150| 2d 68 65 6d 69 2d 73 65 | 61 73 6f 6e 73 20 73 6f |-hemi-se|asons so|
|00004160| 6c 61 72 2d 6e 2d 68 65 | 6d 69 2d 73 65 61 73 6f |lar-n-he|mi-seaso|
|00004170| 6e 73 20 61 70 70 6c 79 | 20 73 6f 6c 61 72 2d 74 |ns apply| solar-t|
|00004180| 69 6d 65 2d 73 74 72 69 | 6e 67 5d 20 38 20 22 5c |ime-stri|ng] 8 "\|
|00004190| 0a 44 61 74 65 20 61 6e | 64 20 74 69 6d 65 20 6f |.Date an|d time o|
|000041a0| 66 20 65 71 75 69 6e 6f | 78 65 73 20 61 6e 64 20 |f equino|xes and |
|000041b0| 73 6f 6c 73 74 69 63 65 | 73 2c 20 69 66 20 76 69 |solstice|s, if vi|
|000041c0| 73 69 62 6c 65 20 69 6e | 20 74 68 65 20 63 61 6c |sible in| the cal|
|000041d0| 65 6e 64 61 72 20 77 69 | 6e 64 6f 77 2e 0a 52 65 |endar wi|ndow..Re|
|000041e0| 71 75 69 72 65 73 20 66 | 6c 6f 61 74 69 6e 67 20 |quires f|loating |
|000041f0| 70 6f 69 6e 74 2e 22 5d | 29 0a 28 70 72 6f 76 69 |point."]|).(provi|
|00004200| 64 65 20 27 73 6f 6c 61 | 72 29 0a                |de 'sola|r).     |
+--------+-------------------------+-------------------------+--------+--------+